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ABSTRACT 


The conceptual phase of helicopter design requires 
that many calculations and iterations be completed. Often 
specifications are exceeded in the latter stages of the 
design, requiring a complete rework of the design to bring 
these specifications within limits. 

This thesis develops a program to be used in the 
Helicopter Design -  AE-4306 course taught by the 
Department of Aeronautics at the Naval Postgraduate 
School, Monterey, California to alleviate many of the 
tedious calculations required in conceptual design 
development. This program provides the student with the 
ability to perform trade-off studies to enhance design 


parameters. 
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I. INTRODUCEEON 


A. BACKGROUND 

Helicopter Design - AE-4306 taught by the Department 
of Aeronautics at the Naval Postgraduate School, Monterey, 
California requires the student to perform a conceptual 
design study for a specific mission-capable helicopter. 
In the design process the conceptual study is but one of 
five phases incorporated into the actual design of a 
helicopter. During the conceptual stage, configuration 
types are compared, size and cost estimates are made, 
feasibility studies are made and recommendations for 
follow-on work are given. Due to course time 
constraints, limits are established and certain 
assumptions made to aid in working within this restriction 
(Ref.1 and Ref. 2]. In completing the conceptual phase of 
design many steps must be taken, resulting in a trial and 
error approach which involves the manipulation of many 
equations and at times lengthy iterations. 
Computerization, which eliminates time consuming manual 
calculations, is a solution to the time constraint 


problem. 


B. GOALS 

The major objective of this project was to develop a 
program that is interactive with the student, one which 
uses the same decision making process as in the Helicopter 
Design Manual [Ref. 1], but which greatly reduces the time 
needed to make necessary calculations. With the current 
availability of personal computers (PC) to students at the 
Naval Postgraduate School, the program was to be designed 
to be used on these machines, eliminating dependence upon 
the school's mainframe computer. 

This program is to be used by helicopter design 
students to enhance their design projects by allowing them 
to be done ina more efficient and timely manner. This 
Will provide students with the opportunity to further 
optimize their projects. The program will also have the 
ability to be altered at a later date as helicopter design 


trends change. 


ΤΙ. ἈΡΡρμοώδο μα ο. ΗΕ ΕΕ ΕΙ 


A computer and a language had to be selected priokmeto 
program design. The IBM PC stvle of svstem was chosen due 
to its popularity and availability. The language selected 
Was BASIC, chosen for its simplicity, ease of use with a 
PC and wide general public knowledge thereof. This makes 
future alterations of the program a simple task. 

The general format of the program needed to closely 
follow Reference 1 to maintain continuity with. design 
course objectives. A menu-driven approach provided ease 
of program operation. 

Program documentation or a user's guide was developed 
to direct the student in the use of the program. Diverse 
levels of computer knowledge needed to be considered in 
the user's guide to accommodate possible first time 
computer users. 

The major limitation encountered was the language 
selected. BASIC provides only 64 Kbytes of memory in 
which the program, arrays, variables and space for all 
loops must reside. Due to the size of this particular 
program 64 Kbytes became very restrictive, requiring some 


alterations. 
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TTITO ThE. SOLUTION 


An AT&T PC 6300, IBM compatible computer, was used to 
develop the program. The AT&T version of BASIC [Ref. 3] 
was the language used. The menu-driven format was 
designed with a developmental application software [Ref. 
4]. 

The format of the program emulated that of Reference 
1, chapter by chapter and section by section. This format 
allows easy modifications to the program as changes to 
Reference l are made. 

The size restriction of the basic language forced the 
breakup of the program into eleven separate programs. 
This provided a program for each chapter, with the 
eleventh program acting as the main program and 
containing the main menu (Figure 3.1). Passage between 
each program was performed with a BASIC chain command, 
which also allowed all variables to be passed. Once the 
size problem was overcome, the developmental software was 
implemented to design the menus used to direct the 
program. 

Each chapter program was designed to closely follow 
the format of Reference 1 with one exception. In chapter 
five the first section of the computer program is a rotor 


blade optimization program. This program allows analysis 


1-1. 


MAIN MENU 


CHAPTER MENU 
| DO ALL OF THE SECTIONS IN ORDER — 


Figures n Program Flowchart 
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of up to five different rotor blades to determine which is 
the most efficient for the design being considered. This 
analysis requires the blade airfoil section data (i.e., 
lift curve slope, section drag coefficient, critical mach 
number, stall angle) which may be obtained from the Theory 
of Wing Sections [Ref. 5]. 

An option section was provided in each chapter menu to 
give the user the ability to print. out the chapter 
results, list the chapter results on the screen, input 
data if calculations were done previously, store data on 
the file disk and return to the main menu. All print- 


outs are provided in the format required by the Helicopter 


Design - AE-4306 course. 
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IV. RESULTS 


The program covers all of Reference 1 and provides all 
necessary results required for the Helicopter Design - AE- 
4306 course. The program affords the student the ability 
to perform trade-off studies on his design to optimize 
specification parameters. The ability to observe 
helicopter performance changes with alterations in 
variables such as rotor blade dimensions, main rotor 
rotational velocity, number of main rotor blades, tail 
length, tail rotor parameters, etc., will enhance the 
student's knowledge of the subject. 

A sample design of a heavy transport helicopter is 
provided in Appendix A. This contains results from the 
program as well as results from hand calculations for this 
particular design. The results from both methods are 
identical. 

Appendix B contains the user's guide for the program. 
It was written to provide assistance for users of all 
levels of PC knowledge. This manual contains all 


information necessary to effectively use the program. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


This program gives the student the ability to perform 
several iterations of the design being developed. This 
will show the student how parameter changes affect the 
overall design, thus gaining a more in depth knowledge of 
helicopter performance. 

Incorporation of wind tunnel work done by Witt [Ref. 
6] and Sargent [Ref. 7] with the aid of calculations 
utilizing empirical data (Ref. 8] should be strongly 
considered. Due to the great time reduction provided by 
the program in the completion of Reference 1 requirements, 
wind tunnel work could be included to obtain equivalent 
flat plate area data and blade section characteristics. 


A plotting routine could also be included with the 


program. Chapter Five results would be plotted to show 
the induced, profile, parasite and total power 
characteristics. 
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APPENDIX A 


HAND CALCULATION AND PROGRAM RESULTS 
FOR THE HEAVY TRANSPORT HELICOPTER 


A. HAND CALCULATION RESULTS 


T 


Chapter Two Results 


Rough estimate gross weight 
Manufacture's empty weight 
Maximum tip velocity 

Main rotor radius 
Rotational velocity 

Thrust coefficient 

Advance ratio 

Blade solidity 

Number of main rotor blades 
Main rotor "chora 

Main rotor aspect ratio 
Average lift coefficient 
Blade drag coefficient 

Lift curve slope 


Chapter Three Results 


Main rotor total power HOGE 


33600 
22000 
12529795 
33.9225 
21.38469 
009579 
«3487248 
. 1028858 
6 

1.8288 
18.56291 
.54 

«009 
5.75 


3454.783 


See Figure A.1 for section 3.2 component weights 
these results obtained using Reference 9 


Section 3.2 new gross weight 


Disk loading 
Figure of merit 
Percent induced power 


37710. 35 
10.41524 
«8078 
892556 


See Figure A.2 for section 3.5 component weights 
these results obtained using Reference 9 


Section 3.5 new gross weight 


39658, 52 


See Figure A.3 for section 3.8 component weights 
these results obtained using Reference 9 


Total power HIGE 
Equivalent flat plate area 


Calculations at 60 knots give the 


Main rotor induced power 
Main rotor profile power 
Main rotor parasite power 


Main rotor tip mach 
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uU H H Il 


36657336 
46.33785 
following: 
λα... 2. 
7590.96 
103.98 

. 741 


Chapter Four Results 


Ta1l rotor radius 
Tail rotor RPM 
Tail rotor aspect ratio 
Number of tail rotor blades 
Tail length 
Tail rotor total power 
Calculations at 60 knots give the 
Tail rotor induced power 
Tail rotor profile power 
Tail rotor total power 
ο το ον tap mach 
Tail rotor solidity 
Vertical stabilizer planform 
Vertical stabilizer AOA 
Vertical stabilizer EFPA 
Vertical stabilizer addition to 
parasite power 


Il l H H H H H I 


Chapter Five Results 


Main rotor blade twist angle = 
Calculations at 60 knots give the 
Alpha(90) = 
Alpha(270) = 
Calculations at 60 knots give the 
Alpha(270) 
Ps 
M9 0 
Mcrit 
Pm 
Total power 
Power required 
Power required at Vmax at ALT 
Power required at hover ceiling 
Maximum RSHP required 
Power with straight-in inlets 
Engine shaft horsepower required 


required 
at Vmax SSL 


Chapter Six Results 


Number of engines 
Availability engine A 
Maintainability engine A 
Reliability engine A 
Installation weight engine A 
Installation weight engine A 
Transmission weight 

New total power HOGE 

New disk loading 
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8.42 
oom 
ο. 5 

4 

41 
ov. 70 
following: 
44.84 
120.76 
165.60 
. 817 
115583 
44 

SS 
4.116 


73.89 


-19 
following: 
«660 
6.10- 
following: 
52616 

344.32 

«87667 

9510632 
0.0 

ο ή. 

35773 

3544. 
7760. 
7760. 
EIS 
8978. 


2 

257379 
«29836 
«99781 
930 
892.8 
5000 
4681.426 
πι πι σος 


New figure of merit 
New percent induced power 


Percent difference in total pwr 


Percent difference in weight 


Chapter Seven Results 


Fuel flow (military) 
Fuel flow (normal) 
Zero horsepower intercept SSL 
Zero Horsepower intercept ALT 
Phantom horsepower 
Maximum range: 
Velocity from Figure A.4 
RSHP required 
Referred horsepower 
Fuel flow required 
Maximum endurance: 
Velocity from Figure A.4 
RSHP required 
Referred horsepower 
Fuel flow required 
Cruise fuel flow at SSL 
New fuel weight 
New gross weight 


Chapter Eight Results 


Percent difference in design 
gross weight 


Hl H H I lH Hl H H i 


Hl n H H H H I 


Difference in specification gross 


weight and design gross weight 
Hover power for design gross wt. 


Best rate of climb airspeed 

Maximum rate of climb 

From program: 
Maximum hover altitude 
Service ceiling 

Body width 

Body height 

Fuselage length 


Chapter Nine Results 


No calculations required for this 
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«82065 
83.92635 
1:55 
eos 


4082.16 
3485.4 

238.324 
212.854 
54325132 


155 

3223.3299 
3767.032 
16527051 


87 

2502.347 
3045.480 
£356.50 
1677.498 
4714.015 
40961.09 


«Jio 


1038.914 
4803.413 
87 
6259.86 


9140 
16410 
B 
8.9 
54.94 


chapter.: 


9. Chapter Ten Results 
See Figure A.5 for component costs these 


results obtained using Reference 9 
Total cost = 5362134 
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ROTOR WEIGHT 2266. 552 


TALL ROTOR WEIGHT 377-6182 
TAIL STRUCTURE WEIGHT 262.8103 
BODY WEIGHT 4920. 282 
LANDING GEAR WEIGHT 1101. 181 
NACELLE WEIGHT 338. 2442 
ΕΝΟΙΝΕ ΝΕΙΟΗΤ 43491. 8253 
DRIVE TRAIN WEIGHT š 24571. 248 
FUEL TANK WEIGHT 316. 069 
FLIGHT CONTROL WEIGHT 1233. 494 
AUX POWER WEIGHT 139 
INSTRUMENT WEIGHT 168.6002 
HYDRAULICS WEIGHT 197.4284 
ELECTRICAL WEIGHT 602.9517 
AVIONICS WEIGHT 329 
FURNISHINGS WEIGHT 387.1861 
AIRCON/DEICE WEIGHT 189.9492 
LOAD/HANDLING WEIGHT 170.8413 
TOTAL EMPTY WEIGHT 21960. 35 
USEFUL LOAD 1190900 
FUEL 4000 
CREW WEIGHT 759 
TOTAL GROSS WEIGHT 37710. 35 


Figure A.1 Section 3.2 Weight Results 
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ROTOR WEIGHT 5266. 632 


TAIL ROTOR WEIGHT 398. 4973 
TAIL STRUCTURE WEIGHT 284.7139 
BODY WEIGHT 5616. 428 
LANDING GEAR WEIGHT 12124537 
NACELLE WEIGHT 363. 8887 
ENGINE WEIGHT 3963. 226 
DRIVE TRAIN WEIGHT | 2825. 509 
FUEL TANK WEIGHT 316.069 
FLIGHT CONTROL WEIGHT 1334. 547 
AUX POWER WEIGHT 139 
INSTRUMENT WEIGHT 178. 1374 
HYDRAULICS WEIGHT 222. 5668 
ELECTRICAL WEIGHT 638. 3101 
AVIONICS WEIGHT now 
FURNISHINGS WEIGHT 424. 307 
AIRCON/DEICE WEIGHT 202. 4012 
LOAD/HANDLING WEIGHT 196. 7558 
TOTAL EMPTY WEIGHT 23908. 52 
USEFUL LOAD 11999 
FUEL 4000 
CREW WEIGHT 750 
TOTAL GROSS WEIGHT 39658. 52 


Figure A.2 Section 3.5 Weight Results 
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ROTOR WEIGHT 32667652 


TAIL ROTOR WEIGHT 414. 845 
TAIL STRUCTURE WEIGHT 296.3162 
BODY WEIGHT 6252. 157 
LANDING GEAR WEIGHT 909. 2452 
NACELLE WEIGHT 385. 3187 
ENGINE WEIGHT 4199.272 
DRIVE TRAIN WEIGHT 3002. 196 
FUEL TANK WEIGHT 316. 069 
FLIGHT CONTROL WEIGHT 1419.416 
AUX POWER WEIGHT 139 
INSTRUMENT WEIGHT 182. 4551 
HYDRAULICS WEIGHT 243534537 
ELECTRICAL WEIGHT 669. 1964 
AVIONICS WEIGHT 325 
FURNISHINGS WEIGHT 458. 2063 
AIRCON/DEICE WEIGHT 212.7259 
LOAD/HANDLING WEIGHT 22002214 
TOTAL EMPTY WEIGHT 24912.94 
USEFUL LOAD 11900 
FUEL 4000 
CREW WEIGHT 750 
TOTAL GROSS WEIGHT 40662. 94 


Figure A-3 Section 3.8 Weight Results 
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HORSEPOWER 


200 1800 2400 3000 3600 


POWER V5 AIRSPEED 
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INDUCED 


4800 5400 6000 


4200 


1 
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-600 
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AIRSPEED (KTS) 


Figure A.4 Power versus Airspeed Plot 


2:3 


ROTOR COST 36537776 


TAIL ROTOR COST 30094. 42 
TAIL STRUCTURE COST 25368. 24 
BODY COST 381532.5 
LANDING GEAR COST 28372. 65 
NACELLE COST 37292. 97 
ENGINE COST l 1400000 

DRIVE TRAIN COST 197167.8 
FUEL TANK COST 42051. 16 
FLIGHT CONTROL COST 146566. 3 
AUX POWER COST 22357.39 
INSTRUMENT COST 15096. 15 
HYDRAULICS COST 14725. 01 
ELECTRICAL COST 63341. 69 
AVIONICS COST 23797557 
FURNISHINGS COST 20927. 15 
AIRCON/DEICE COST 29991. 62 
LOAD/HANDLING COST 13451. 03 
TOTAL COST (1977 USS) 2867451 

TOTAL COST (CURRENT DOLLRS) 5362134 

E3uure Δ: Component Cost 
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B. PROGRAM RESULTS 


TABCETOF“CHAPTER TWO RESULTS 


SPECIFICATION GROSS WEIGHT 42000 
ROUGH ESTIMATE GROSS WEIGHT 33600 
ESTIMATE OF MANUFACTURER'S EMPTY WEIGHT 22000 
MAXIMUM TIP VELOCITY 725.9785 
ROTOR RADIUS 33.94851 
ROTATIONAL VELOCITY I 21. 38469 
THRUST COEFFICIENT 9. 259719E-03 
BLADE SOLIDITY . 1028858 
NUMBER OF MAIN ROTOR BLADES 6 

BLADE CHORD 1.828826 
BLADE ASPECT RATIO 18.56291 
AVERAGE LIFT COEFFICIENT 54 

BLADE LIFT CURVE SLOPE 5 73 

BLADE DRAG COEFFICIENT 8. 999999Ε-03 
DISC LOADING 11.6 

MAXIMUM ADVANCE RATIO . 3487248 
MAXIMUM BLADE LOADING 9. 000001E-02 
MAXIMUM FORWARD VELOCITY 150 
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TABLE OF CHAPTER THREE ΕΞ: 


SPEGIFICATIONOGROSSOWETIHT 42000 

ROUGH ESTEMASB GRASSTWETEHT 33600 
ESTIMATE OF MANUFACTURER'S EMPTY WEIGHT 22000 
MAXIMUM TIPS ELOCITY 729. 9mm 
ROTOR RADIUS 33. 94851 
ROTATIONAL VELOCITY | 21. 38469 
THRÜUSTEIGBEPRBTGTENT 1.l110061E-208 
BLADE SOLIDITY <. 1028838 
NUMBER OF MAIN ROTOR BLADES 6 

BLADE CHORD 1.828836 
BLADE ASPECT RATIO 18.396291 
AVERAGE LIFTSEOEFFIĊIENT . 54 

BLADE LIFT- -CURVE SCOPRE 79 

BLADE DRAG COEFFICIENT 8. 9ΘΘΘΘΘΏΕ” 
DISC LOADING 11. 23072 
MAXIMUM ADVANCE RATIO . 3487248 
MAXIMUM BLADE LOADING 9. 000001E-0O2 
MAXIMUM FORWARD VELOCITY 150 

TIPEOSSE -97531666 
INDUCED POWER IN HOVER OGE 3673732793 
PROFILE POWER IN HOVER TOGE 692.972 
TOTAL POWER IN HOVER OGE 4368. 508 

FIS IRE Or HERD -9223923 
PERCENT INDUCED POWER 84. 13694 
INDUCED POWER IN HOVER IGE Ec nic Bis 
TOTAL POWER ΤΝ HOVER ΠΕ 32366373365 
EQUIVALENT FLAT PLATE AREA 46. 3357835 
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i. 
2. 


s 
4. 


6. 


Z 
8. 
EB 
10. 
Il. 
12. 
13. 
14. 
15. 


WEIGHT ESTIMATION TABLE 


ROTOR: 

TAIL ROTOR: 
STRUCTURE: 

BODH 


LANDING GEAR: 


NACELLE: 


PROPULSION ENGINE: 


DRIVE: 
FUEL TANKS: 


FLIGHT CONTROLS: 
AUXILLARY POWER: 
INSTRUMENTS: 
HYDRAULICS: 
ELECTRICAL: 


AVIONICS: 


FURNISHINGS: 


AIR & ICE: 


LOAD & HANDLING: 


5266. 632 
377: 6182 
262. 8103 
4920. 282 
1101.181 
338.2442 
3491. 852 
2471. 216 
Jl6. 069 
1233. 494 
139 

168. 6002 
197. 4284 
602. 9511 
925 

387.1861 
185: 9692 
170.8413 


ITERATION 
SECOND 


52667632 
398. 4973 
284.7139 
5616. 428 
12122337 
363. 8887 
39637226 
2825. 309 
316. 069 
1334. 547 
139 

178.1374 
222. 5668 
6368. 3101 
325 

424. 307 
202. 4012 
156. 7558 


THE NEW MANUFACTURER'S EMPTY WEIGHT s 24912.94 


THE NEW GROSS WEIGHT 


40662. 94 
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e = c— -- -ᾱ - -ᾱἩ = 


5266 7632 
414.845 
29673162 
6252. 158 
949. 2452 
ΕΞ. 5187 
4199. 271 
3002. 196 
316. 069 
1413. 416 
139 
182745351 
244.4637 
669. 1965 
828 

458. 2064 
212.7239 
220.4214 


MAIN ROTOR POWER 


STANDARD SEA LEVEL 
ALTITUDE= 9 FT TEMPERATURE * S9 DEG X 
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===. TS. a mie dm με POWER = s 

ATRSPEED TIP INDUCED PROFILE PARASITE TOTAL 

(knots) MACH (SHP) (SHP) (SHP) (SHP ) 
9. ὁ 9. 650 3575559 632.98 0.00 4368. 51 
29. 0 9. 680 326 M74 699. 42 3785 38965557 
49. Q @. 719 2395. 60 718.73 30. 81 3145.15 
69. @. 741 1721221 7569. 86 103.98 2276.19 
89.0 0.771 1312732 796. 95 246. 47 2354585 
1909. Q 0. 801 1054.90 854. 93 481. 40 23990. 32 
129.0 9. 831 880. 62 924.90 831.65 2637247 
140. ὃ Q. 862 799: 19 190968. 63 1320.95 3984. 99 
153. ð. 877 79095.18 1055233 1624.71 438293723 

MAIN ROTOR POWER 
SPECIFICATION ALTITUDE 
ALTITUDE = 4000 FT TEMPERATURE s 95 DEG. F 

== στο στ. PQWER ------9--2—————— 

AIRSPEED TIP INDUCED PROFILE PARASITE TOTAL 

(knota) MACH (SHP) (SHP ) (SHP) (SHP) 
0.9 @. 629 4100. 32 3939.66 Q. δῶ 4660. 18 
29. @. 658 37227309 564. 86 στι 4299.27 
42.2 9.688 2866. 26 380. 47 24. 88 3471.61 
69.2 ο. 717 2111.64 696. 48 83. 98 28902. 190 
83. Φ. 746 1622. 30 642. 90 199.03 2464. 25 
199.49 0.772 1307.23 689.72 388.78 2385: 73 
123. 0. 8905 1092.27 746.95 οἱ 2511.93 
149.9 @. 834 957732 814. 59 1066. 81 281372 
153. Q. 848 375211 8252. 31 1312513 3039. 53 


TAIL 
TAIL 
TAIL 
TAIL 
TAIL 


ROTOR 
ROTOR 
ROTOR 
ROTOR 
ROTOR 


TAB BE Or ΕΠΑΡΤΕΕ ΠΘΒΟΕ ΠΕΙ ΕΤ 


RADIUS 

ROTATIONAL VELOCITY 
RPM 
DHRUSQESSEFPTCIEIEND 
BLADE SOLIDITY 


NUMBER OF TAIL ROTOR BLADES 


TAIL 
TA IL 
TAIL 
TAIL 
TAIL 
TAIL 
TAIL 
TAIL 
TAIL 


ROTOR 
ROTOR 
ROTOR 
ROTOR 
ROTOR 
ROTOR 
ROTOR 
ROTOR 
ROTOR 


BLADE. CHORD 

BLADE ASPECT RATIO 

BLADE DRAG COEFFICIENT 

τς ες 

INDUCED POWER IN HOVER OGE 
PROFICESPOWER IN HOVER OGE 
TOTAL POWER IN HOVER OGE 
INDUCED POWER IN HOVER IGE 
TOTAL POWER IN HOVER IGE 


TAIL LENGTH 

VERTICAL STABILIZER PLANFORM AREA 
VERTICAL STABILIZER SPAN 

VERTICAL STABILIZER SWEEP AT MID-CHORD 
ERT TICAL STABILIZER ASPECT RATIO 
VERTICAL STABILIZER ANGLE OF ATTACK 
ENS TICALOSTABILIZER COEFFICIENT OF LIFT 
eRT TICAC STABILIZER LIFT CURVE SLOPE 
Meyer ARM OF VERTICAL STABILIZER 
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8. 424962 
300 SII 
pup shi 
ἱ Φος ω- 
4553533 
4 

1. 2961 48 
o 
Saas oe Joe 03 
- Je5108 
26 5507 
115 71711 
374.7018 
232708937 
3863. 4836 
41 

44 

j: 

47.7 

2a 79 

913 32969 
. 8546744 
2.649345 
e 


TAIL ROTOR POWER WITH VERTICAC STABICIZER 


3/0 


STANDARD SEA LEVEL 
ALTITUDE “= Q@ FT TEMPERATURE = 59 DEG. F 
----THRUST---- TA POWER ------------------- 
TAIL VER DZ MAIN VERT/ 

AIRSPEED  ROTOR STAB ROTOR STAB INDUCED PROFILE TOTAL with v/8 
(knots) (lbf) C252) CSHB) (eSHPe) (SHP) (SHPJ (SHE) 
Q. Q 2740. 4 0.0 4368.5 0.0 261.3 11312 374.7 
20.0 2487.3 39. 9 3965. 73: 188.5 114. 302. 8 
40. 1973.3 203. 7 3145.2 293109 76.8 15 9 193. 3 
eo. Q 1616.0 458.3 2976. 2 65953 24. 3 120.8 145.1 
80.0 1477.2 814.8 2354. 8 117232 7.0 126:7 133:7 
199.0 1499. 5 J 273; 1 2390. 3 183174 1:2 134.3 135295 
120. Q 1654. 4 1833.3 2637. 4 2637.4 0.0 143.5 143.5 
143. Y93595: 2 2495. 3 3085.2 358978 @. 7 154. 5 I25922 
159.0 2123.5 2864. 5 3385.2 4129.9 1.4 169.6 162: 

TAIL ROTOR POWER WITH VERTICAL STABILIZER 
SPECIFICATION ALTITUDE 
ALTITUDE = 4000 FT TEMPERATURE = S5 J DES: EE 
----IHRUSI---- σποτ το ο... POWER =... M 
TAIL MERI MAIN VERTO 

AIRSPEED  ROTOR STAB ROTOR STAB INDUCED PROFILE TOTAL with v/s 
(knots) CIDfÍ) CIbf) (SHP) (*SHP®) (SHP) CSHP) (SHP ) 
@. Q 2929. 3 0.0 4660.2 0.0 29251 91.4 383.4 
20.90 2691.3 48. 5 4290. 3 69.8 244. 3 92. 1 Jo. 3 
40.0 2 1757 193.9 3471.6 279.0 114.4 94.1 208.5 
60.0 1797.8 436. 4 2802. 1 627.8 38. 6 37.5 135 
80.0 1545.8 773.8 2464. 2 1116.0 11.2 192. 3 113.5 
1990.09 1496.6 1212.1 2383. 7 1743.8 2.0 108.4 110.5 
120. ὢ 15795: 2 1745.5 2511. 0 251120 0.0 Iba. 9 115.9 
140. ὢ 1768.2 23759. B 2018.7 3417.8 154 124.8 126:1 
159. 9 190696. 7 2727.3 3039. 3 392-3 9 2.6 129-7 155-53 


TATETROTOR POWER 


STANDARD SEA LEVEL 
ALTITUDE D O bT το Ετος - 5 ος F 


----------- η... .------- 
AIRSPEED TIP INDUCED PROFILE TOTAL 
(knots) MACH (SHP) (SHP) (SHP) 
0.0 Φ. 726 261.53 De 107 374.70 
20.0 @. 756 200.22 114.01 314.23 
40.0 ο. 786 94. 92 116. 55 21027 
60.0 Q. 817 44.84 120.76 165.60 
80.0 Q. 847 28.29 126.67 154.96 
100.0 Q. 877 23.36 134.26 157.62 
120.0 Q.907 23:74 143.54 167.28 
140.0 Q. 937 27.91 154.51 132541 
150. 0 2. 953 31. 40 160. 62 192. 03 


TALE ROTOR POWER 


οΓΕΣΤΕΟΤΟΑΤΙΟΑΙ AL DPITIDE 
ALTITUDE = 4000 FT DEHBPESRATPMRE = 95 DEG. F 
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= — EE cmm DOWER πρ σσ 

ATRSPEED TIP INDUCED PROFILE TOTAL 
(knots) MACH (SHP) (SHP) (SHP) 
0.0 Q. 703 292.09 91.40 383. 48 
20.0 One 32 2393.69 92. 08 ΖΑ 
40.0 @. 761 ΟΕ 94. 12 231: 99 
60.0 Q. 790 65.41 27.53 162.94 
80.0 Q. 820 38.41 102. 30 140.71 
100.0 Q. 849 56.07 108.43 στ ου 
120. Q 9. 878 26. 70 11 35192 142.62 
140.0 Q. 907 65 124. 78 133767 
158. Q WILL 15:59 r29. 72 ΕΠ 


TABLE OF CHAPTER FPFIVEPRR OD 


BLADE TWIST 
BLADE STALL ANGLE OF ATTACK 
BLADE Merit 
BLADE LIFT CURVE SLOPE 
BLADE Cdo 
RSHP REQUIRED AT MAXIMUM VELOCITY: 
SPECIFICATION ALTITUDE 
STANDARD SEA LEVEL 
RSHP FOR HOVER CEILING, IGE 
MAXIMUM RSHP 
INLETS AND INLET DUCTING LOSSES: 
G= Tr rE 
ICE SHEILD 
STRAIGHT IN 
ENGINE AIR PARTICLE SEPARATORS: 
BARRIER 
PARTICLE SEPARATOR 
ENGINE EXHAUST DIFFUSERS: 
HEAT DIFFUSERS 
INFRA-RED SUPPRESSER DIFFUSER 
ENGINE SHAFT HORSEPOWER REQUIRED 
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-14 

14 

4 75 

3:75 
8.999999Bp. 


3544. 972 
397 7 DUE 
7760) 53 
77607256 


Φ 
ὁ 4 
2 
QO 4 
O 4 
O % 


O X 
8978. 214 


COMPRESSIBILITY 


STANDARD SEA LEVEL 


SES 


AND STALL EFFECTS ON POWER REQUIRED 


ALTITUDE = Q9 FT TEMPERATURE = 39 DEG. F 
AIRSPEED ALPHA ALPHA M9Q Merrit Ps Pm 

(kta) (90) (270) (shp) (shp) 

0.0 20. 199 20: 190 @. 6500 @. 7826 0.0 0.0 
20.0 20:639 -0.018 2.6802 0. 8027 0.0 0.0 
40.0 ΙΒ Q. 178 @. 7104 0. 8215 0.0 0.0 
60.0 @.671 6. 090 @. 7407 @. 7480 0.0 0.0 
80.0 70,098 6. 899 ο. 7709 9. 7789 ΟΦ. 0.0 
100.0 -0.717 8.022 0. 8011 0. 8038 0.0 0.0 
120.0 21.241 9. 495 0.33713 Q. 8248 0.0 0.0 
140.0 ΤΕ: 11. 400 0. 8616 @. 8432 0.0 0.0 
159.0 - 1. 909 12.990 Q. 8767 @. 8516 0.0 0.0 
170.0 ΛΠ 151326 @. 30963 @. 8676 384. 1 0.0 

COMPRESSIBILITY AND STALL EFFECTS ON POWER REQUIRED 
SPECIFICATION ALTITUDE 
ALTITUDE = 4000 FT TEMPERATURE = 95 DEG. F 
AIRSPEED ALPHA ALPHA M90 Merit Pa Pm 

(kts) (90) (270) (shp) (shp) 

@.@ 0.922 0:922 Q.6291 Q.7380 0.0 0.0 
20.0 0.276 1. 216 @. 6584 0: 76539 0.0 0.0 
40.0 20:229 1:390 @. 6876 @. 7882 0.0 0.0 
60.0 η 8. 492 @. 7169 @. 7056 0.0 0.0 
80.0 no 739 9. 459 @. 7461 @. 7447 0.0 0.0 
100.0 20,039 10.7352 @. 7754 @. 7766 0.0 0.0 
120.0 -0.720 12.394 Q.8046 0. 8039 0.0 0.0 
140.0 Γι. 324 14.426 0.5389 0.9281 86.8 0.0 
150.0 -1.603 JS 616 @. 8485 @. 8394 344. 3 0.0 
170.0 Áp2.128 18. 403 0.2777 Q.8604 102958 0.0 


TOTAL POWER REQUIRED 
(With High Speed Effects) 
STANDARD SEA LEVEL 


ALTITUDE. = Gee TEMPERATURE = 53 DEG. F 
AIRSPEED Pa PO Pp Ps Pm ες ο. 

(kts) (shp)? (snp) (ghp) (anp) (ahp) (snp) (shp) 

9. ὁ 36739 693. @ 9. ὁ 9. ὁ 9. ὁ 374. 7 4743. 2 
20.0 32617 699.4 d. 0.0 0.0 3.2 4279. 2 
40.0 239556 718.7 30.8 0.0 0.0 οι] S 3356.6 
60.0 IIe lew 731.0 194.0 . 9.0 0.90 στο - 2741. 8 
80.0 131253 795.1 246. 3 9. Q 0.0 TSSA 2509. 8 
1909. ὦ 1054.9 854.0 481.4 9. ὁ 0.0 TSAS 2547.9 
120. ὦ 880. 6 924.9 8515 0.0 0.0 1573 2804.7 
140. ὦ 55:4 1908. 6 132029 0.0 0.0 182.4 3267.4 
150. 70972 1055. 4 1624.7 ο. ὁ 0.0 19272 SIATS 
170. 622. 4 1158.4 2365. I 384.1 0.0 2159.8 4745.8 


TOTAL POWER REQUIRED 
(With High Speed Effects) 
SPECIFICATION ALTITUDE 


ALTITUDE = 4000 FT TEMPERATURE = 95 DEG. F 
AIRSPEED BA Po Pp Ps Pm prr PT 

(kts) (snp) (anp) (snp) (snp) (snp) (snp) (snp) 

0.0 4100.5 Soo 7 Q.Q9 0.0 0.0 gas 5043.7 
20.2 drum. d 564.9 dt Q. Q9 0.0 dota 4642.0 
40.0 2866.3 589.5 24. 9 9. ὁ 0.0 23179 37/0373 
60.0 211156 606.5 84.0 0.0 0.0 162.9 2965. 0 
80.0 1522. 3 642. 9 TOC 0.0 0.0 140.7 2605. 
1909. O 1307: 2 689.7 388. 8 0.0 0.0 19774 252350 
129.0 I092.3 747.2 &7 ie 0.0 0.0 142.6 262923. 7 
140. @ 93773 814.6 1066. 8 86.8 0.0 TOSA dag 2 
150. @ 8725.1 8523 1312 91 344.3 0.0 τοι. ι 3545.2 
1709. ὁ "772.9 93576 1910.1 1029.9 @. 9 180. ὦ 4827.9 
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ΠΕ, ΡΕ ΣΠΑΡΤΕΡ 5 RESULTS 


SELECTED ENGINE DATA 


DRY WEIGHT 720 
SHE 4380 
SEC . 466 
DNITWMAL COST 700 
OPERATING COST 60 
PREVENTIVE MAINTENANCE l 220 
MTBMA 64 
MDT 2:6 
MTBR 750 
REPLACEMENT COST 945 
SALVAGE COST 360 
AVAILABILITY ο ο τα” 
REELABILITY . 9978148 
MAINTAINABILITY 22993607 
TRANSMISSION RATING (SHP) 8500 
TRANSMISSION WEIGHT 3000 
NEW GROSS WEIGHT 40247. Q7 
TOTAL POWER TO HOVER OGE 4681. 426 
DISC LOADING σι τε 
FIGURE OF MERIT . 82065306 
FERCENT INDUCED POWER BS 
PERCENT DIFFERENCE IN POWER J. 5198889 
PERCENT DIFFERENCE IN WEIGHT 1. 033293 
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ENGINE SELECTION CRITERIA 


ΞΕ... ENGINE ----------------- 
Α B Ç D E 
POWERPLANT WEIGHT: 893 930 
LIFE-CYCLE COST (10009): 3545 3545 
ENGINE LIFE (hrs): 750 750 
No. OF REPLACEMENTS: 2 2 
R/D COSTS: Φ Φ 
INITIAL COSTS: 700 700 
ANNUAL MAINT. COST: 26 26 
ANNUAL OPERATING COST: 7 7 
REPLACEMENT COST: 945 945 
SALVAGE VALUE: 560 560 
AVAILABILITV (per engine): @. 5738 ο. 9318 
RELIABILITY (per engine): @. 9978 @. 9978 
MAINTAINABILITY (per engine): @. 2984 @. 2984 
PERFORMANCE (military SHP): 4380 3400 
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IABIESSOESEHAPTERSSEVEN RESULTS 


GĦEGMIETTAR( POVER 

SFC NORMAL POWER 

Sec CRUISE POWER 

SHP MILITARY POWER 

SHP NORMAL POWER 

ant οποτε ΡΟΜΝΕΠ 

FUEL FLOW MILITARY POWER 

FUEL FLOW NORMAL POWER 

BWEL FEOWTERUISE POWER 

CERO HORSEPOWER INTERCEPTAT SSL 
BP'EREMMEORSEPOWER INTERCEPT AT SPEC. ALTITUDE 


PHANTOM 
PHANTOM 
MAXIMUM 
MAXIMUM 
MAXIMUM 
MAXIMUM 
MAXIMUM 
MAXIMUM 


HERSEPOWERAT SSL 

HORSEPOWER AT SPEC. ALTITUDE 
RANGE VELOCITY 

RANGE REFFERED HORSEPOWER 
KANGE FUEL FLOW 

ENDURANCE VELOCITY 

ENDURANCE REFFERED HORSEPOWER 
ENDURANCE FUEL FLOW 


EREJISE FUBE ΤΕΟΝ AT SSL 

ERUTSE FUEL FLOW AT SPEC. ALTITUDE 
TOTAL FUEL REQUIRED 

NEW GROSS WEIGHT 


D 


, 466 

, 471 

Q 

4380 
3700 

© 

4082. 16 
3485. 4 

@ 

2 uec 
21279936 
343. 1323 
485. 0875 
138 
3767- 032 
1632.931 
87 

3045. 48 
1336. 339 
1677. 498 
οσο οσο 
4714.016 
40961.09 


TABLE OF CHAPTER OETG II pr E DE O 


HOVER =P@WER FOR DESIGN GROSS Vetere 
PERCENT DIFFERENCE IN DESIGN GROSS Ες. 
DIFFERENCE IN DESIGN AND SPEC. GROSS Wea 
NEW GROSS WEIGHT 

MAXIMUM RATE OF CLIMB AIRSPEED 

MAXIMUM RATE OF CLIMB 

MAXIMUM RATE OF CLIMB POWER REQUIRED 
MAXIMUM T HOVER TACTITUDE MTGE 
SERVICEZEETETNO 

BODV WIDTH 

BØD THETGHT 

FUSELAGE LENGTH 
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4803. 413 
. 72 7855 
1033.99 
40961. 09 
a7 

6239. 86 
2309. 604 
3140 
16410 
8.999955 
8.699325 
34.94 


FINAL SUMMARY 


es PERFORMANCE 


CREW: 
INTERNAL LOAD (lba): 
SERVICE CEILING (ft): 
HOVER CEILING (ft): 
VELOCITY (kta) CRUISE: 
MAXIMUM: 
MAX ENDURANCE: 
MAX RANGE: 
BLADE STALL ON-SET: 
MAX RATE OF CLIMB (FT/MIN): 
ENGINE - NUMBER: 
TYPE: 
SHP (aal) MILITARY: 


+e GEOMETRY » 


WEIGHT (lba) MAX GROSS: 


EMPTY: 
FUEL CAPACITY (lba): 
MAIN ROTOR - CHORD (ft): 


RADIUS (ft): 
NUMBER OF BLADES: 
DRAG COEFFICIENT: 
BOLIDITT: 

TAIL ROTOR - CHORD (ft): 
RADIUS (ft): 
NUMBER OF BLADES: 
DRAG COEFFICIENT: 


ROTATIONAL VEL (rad/sec): 


SOLTDITY: 

VERTICAL TAIL AREA 
FWSELAGE LENGTH (ft): 
EFFAT(ft2) - FORWARD: 

VERTICAL: 


(be: 


919 


SPECIFICATION 


3 
11000 
20000 
15250 
140 
150 


17309 


42000 
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SS 


DESIGN 


3 
11000 
16410 
9140 
140 
150 
87 
138 
140 
6259786 
2 


T64-GE-415/416 


4380 


40961. 909 
24497.07 
4714.016 

1. 828836 

33. 94851 

6 
8719999996593 
- 1028858 
1.296148 

8. 424962 

4 

8. 339SS 372-03 
S6. 23171 

. 195883 
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34.94 

46. 337835 

88. 88743 


Z: 
8. 


19. 
11. 
12. 
13. 
14. 
15. 


ROTOR: 
TAIL ROTOR: 
STRUCTURE: 
BODY: 
LANDING GEAR: 
NACELLE: 
PROPULSION ENGINE: 
DRIVE: 
FUEL TANKS: 
FLIGHT CONTROLS: 
AUXILLARY POWER: 
INSTRUMENTS: 
HYDRAULICS: - 
ELECTRICAL: 
AVIONICS: 
FURNISHINGS: 
AIR & ICE: 
LOAD & HANDLING: 


COST ESTIMATION TAS3EE 


TOTAL CGS) 375362134 
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COST 


56 5372 
30094. 42 
25368. 24 
eI een) 
2899722635 
372927 
1400000 

13736772 
42051.16 
146566. 4 
22337 938 
15096. 15 
14725. 2 
63341.7 

3371017 
20927. 16 
27991764 
13451.02 


APPENDIX B 


HELICOPTER DESIGN PROGRAM USER'S GUIDE 
Εντ σος 


This program is not intended to eliminate the 
requirement for the Helicopter Design Manual by Professor 
Donald M. Layton (Ref. 1) Boe το ARES It, The 
program follows Reference 1 section by section thus 
requiring its availability as a reference during design 
development. The program itself is menu driven allowing 
selection of chapters, sections and options by using the 
cursor keys and the enter key (4—). Chapters Two through 
Ten of Reference 1 are covered by the program. The 


program's Chapter One is an introduction to program use. 
TI. THE BASICS 


A. HARDWARE REQUIREMENTS 

An IBM PC or compatible computer with at least 128K 
RAM will be needed. A color monitor is preferable but not 
a must; however, a color or monochrome graphics card 
should be installed. Any type of printer that allows 


print screen operation will work. 
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B. GETIING STARTED 

Place the main program disk into Drive A and a 
formatted disk (see the computer's operation manual for 
formatting instructions) into Drive B, this will be your 
data disk. The program is bootable from the disk so just 
turn the computer on and the program will load and start 
running. If the computer is already on, load the disks as 
Stated above, hit the CTRL,ALT,DELETE keys simultaneously 


and the program will load and run. 


C. RUNNING THE PROGRAM 

After program loading is complete the main menu will 
appear on the screen. The cursor bar will be over the 
first selection of the menu which is Chapter One. If a 
first time user, take a minute to look over the 
introductory chapter, otherwise select the chapter or 
option desired. Chapter or option selection may be made 
by moving the cursor bar over the selection with the up 
(f) or down (|) cursor key and depressing the enter (4) 
key. A loading chapter... please wait... window will 
appear followed by the menu for the selected chapter. 
Section or option selection can be made the same way as 


With. che main menu. 
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1. Some Special Notes 


a. Press Any Key to Continue 
When a "press any key to continue" 15 
displayed, do not use the space-bar. If by chance the 
space-bar is used, just press it again and then press 
another Key. 
b. Clearing Data in the Program 
If at any time data or variable assignments ` 
need to be cleared from the program and reloaded from the 
file disk (this is a good idea when redoing a chapter to 
prevent mixing old and new data), return to the main menu 
and hit the F5 key and then the enter (¢—1) key. Now 


reload the desired data from the file disk. 


D. OPTIONS 
l. Do all of the Sections in Order 
All of the sections of the chapter may be done in 
order without returning to the chapter menu between each 
section by selecting this option. If the need to return 
to the chapter menu arises, press the F9 key and then the 
enter (4—) key and the chapter menu will appear. 
emm Input Datà 
If data for a chapter has been generated outside 
of the program it mav be entered into the program using 
purs option (for Chapters Two through Four). If data is 


input for a section, that section of the program should 
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not be done because the program generated data will 
override the input data. 
3. List Results 
This option displays the data generated for that 
particular chapter on the screen. 
4. Hard Copy of Results 
If a print out of the chapter results is needed, 
use this option. Make sure the printer is on. 
5.. Store Data on File Disk 
It is a good idea after completion of a chapter to 
store the data generated by the program. Selecting this 
option will display a saving data... please wait... 
window followed by the chapter menu ready for the next 
selection. Data can be stored for Chapters Two through 
Hight. 
6. Return to Main Menu 
This option returns the program to the main menu 
to continue to the next chapter or terminate the program. 
7. Load Data From File Disk 
This option is for accessing data stored on the 
data disk. The last chapter from which data was stored 
will be displayed as a reminder. Enter the chapter number 
of the data to be loaded. A loading data... please 
wait... window will appear followed by the main menu 


waiting for the next selection. 
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8. Exit the Program 


To return to DOS select this option. 
E. CHAPTER SPECIAL INSTRUCTIONS 
1. Chapter One 
Ihis is a brief introduction to program operation. 
Zee Chapter TWO 
Chapter Two covers the main rotor design. This 
closely follows the design manual. 
3. Chapter Three 
Preliminary power calculations are developed in 
this chapter. 
a. Section 3.4 
The screen will display the required data for 
this section in f τος, στα νο. The lower left box 
displays parameter trends (these are not the final 
results) to aid in the decision making process to get 
Figure of merit and percent induced power within limits. 
A maximum of ten iterations may be done in this section. 
Section 3.8 
If while doing this section, the program keeps 
meturninġ to section 3.3 or section 3.4 consider 
interrupting by pressing the F9 key, then the enter key 
(«—) and double checking the parameters causing the break 
in execution. This may even require returning to chapter 


two to make changes. 
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4: Chapter Four 

The tail rotor design is performed in this 
chapter. 

a. Section 4.4 

Prior to doing this section a ver 
stabilizer design should be completed. The program will 
need the span and  planform area of the vertical 
stabilizer. The equivalent flat plate area and parasite ` 
power are for information only and not included in the 
total power calculations. Also the tail rotor power with 
vertical stabilizer power calculations are for information 
only and not included in the following power calculations. 
5. Chapter Five 
chace Five deals with power refinements. 
as sections 
This section is not part of the design manual. 

This routine provides the power required at maximum 
forward velocity for up to five different rotor blades at 
varied twist angles. The program allows for selection of 
the rotor blade requiring the least amount of power for 
the particular design. The blade, it's characteristics 
and twist angle associated with the minimum power 
requirement should be used in the remainder of the 
chapter. When putting blade data into the table put the 


required data under the appropriate heading and press the 
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enter key («4—3), the cursor will automatically move to the 
next entry point. 
ο 5εαο τοις 5.12 5 4 02 
After each selection is made a "*" will appear 
after each selection as a reminder which devices have been 
selected. 
e Chapter Six 
No special instructions for this chapter. 
7. Chapter Seven 
Range and endurance calculations are made in this 
chapter. 
ac Section 7.1 
If the selected engine's data is taken from 
another source the military and normal powers and SFC 
maybe the only specifications given. Enter these and 
enter zero for the cruise entries. 
RES Section 7.5 
This section will take some time to compute. 
The machine will beep when complete. 
chapter Eicht 
This chapter is for several miscellaneous 
calculations. 
ae Section 8:1 
Enter the weight combination (i.e., gross 
weight, fuel and useful load) that will best meet 


specification requirements. 
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be Sections %2 =3. 41 


These sections will take some time to compute. 


The machine will beep when complete. 


9. Chapters Nine and Ten 
The data for these chapters is not stored on the 
file disk. Chapter Eight data is required to complete 
these two chapters. 
10. Units 
All units will be the same as addressed in 
Reference 1 and Reference 2. Some examples are: 
Airspeed - knots 
Altitude - feet 
Angle - degrees 
Weight - pounds 
Rotational velocity - radians per 
second 
Power - horsepower 


Fuel flow - pounds per hour 
Temperature - degrees Fahrenheit 
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APPENDIX C 


VARIABLE DEFINITIONS AND PROGRAM LISTING 


A. VARIABLE DEFINITIONS 


di 


Constants 


PI = 3.1415927 
RHO = sea level density 
M(1) = mach number at seal level 


Counters and Indices 


chapter or section 

chapter counter for saving data 

number of weight iterations 

weight category (chapter 3) 

index for weight and power variables in 

section 3.4 

option item for section 3.4 

EE = counter for section 3.4 

mI K KK L:D = for loop indices 

NN = counter in section 3.4 

LL = counter for airspeed 20 kt. increments 

RE = screen listing option 

V,Q = data storage counters 

LLL = airspeed counter in chapter 5 

PR = print option selection 

U = selection for engine duct type 

Kl = counter for line spacing in engine 
installation display 

JJ = counter for maximum range calculations 

Gxx = counter for data storage and data loading 


= Hi x< Z tQ >< 


Flads 


AP = eliminate "press any key to continue" for 
chapter two or printer flag for chapter 
three to print tables. 

AB = list weight estimation table on screen or 
display results from section 3.8 

A5 = display weight table results for section 
8379 

X7 = return to section 3.8 from section 3.3 
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ZZ,ZA = determine which specific groups of 
equations needed to recalculate figure 
of merit in section 3.4 


AA = determines landing gear type for weight 
calculations 

AZ = for returning to section 3.8 from 3.4 

AQ = return to chapter four menu from section 
4.3 

AU = printer flag for chapter five 

X1 = return to section 5.7 from 5.4 OPES 

AV = printer flag for chapter six 

AX = printer flag for chapter nine 


Chatper Two Variables 


SGW = specification gross weight 

= rough estimate gross weight 
WE = estimate of manufacturer's empty weight 
VTIPMAX = maximum tip velocity 
R = rotor radius 
OMEGA = rotational velocity 
CT = thrust coefficient 
SIGMA = blade solidity 
B = number of blades 
C = main rotor blade chord 
AR = main rotor blade aspect ratio 
CL = average lift coefficient 
CLALPHA = blade lift curve slope 
CDO = blade drag coefficient 
DL disk loading 
MU maximum advance ratio 
MBL = Maximum blade loading 
MAXFVEL = maximum forward velocity 


lI {| 


Chapter Three Variables 


TIPLOSS = main rotor blade tiploss 
PIN = induced power in hover OGE 

PO profile power in hover OGE 

PT total power in hover OGE 

FM figure of merit 

PERINDP percent induced power 
PERDIFW percent difference in weight 
PERDIFP percent difference in power 
PINI = induced power in hover IGE 

PTI = total power in hover IGE 

EFPA = equivalent flat plate area 

HP = total power in hover OGE 

PEOPLE = number of people 

PAX = weight of people 

SPECIAL = weight of special equipment 


I H I 


l H I 
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S = total main rotor blade planform area 
W(xX,xX) = component weight 

UL = useful load 

FUEL = fuel weight 


GR = type of landing gear 


RH main rotor height above the ground 
H = main rotor height above ground at HIGE 
M = mission type of helicopter 


ALT = specification altitude 

O(x) = J = airspeed in twenty knot increments 
VF = VF1 - airspeed in feet per second 
CRUISEV - CRU = cruise velocity 


PIF(x,x) = induced power in forward flight 
POF(X,X) = profile power in forward flight 
PPF(x,X) = parasite power in forward flight 
PTF(x,X) = total power in forward flight 


TM(X,X) = main rotor tip mach number 
MU = MUl = maximum advance ratio 

STT = tail surface area 

SB = body surface area 

ENGINE = number of engines 


Chapter Four Variables 


TR = tail rotor radius 
TCDO = tail rotor drag coefficient 
TRPM = tail rotor RPM 


TAR = tail rotor aspect ratio 
= tail rotor chord 
OMEGAT = tail rotor rotational velocity 
SIGMAT = tail rotor solidity 
TL = tail length 
TRA = tail rotor area 
TRVT πι - tail rotori tip velocity 
TTR = tail rotor thrust 


CTTR = tail rotor thrust coefficient 

PITR = tail rotor induced power 

POTR = tail rotor profile power 

VF = VFl = airspeed in feet per second 

PITRF(x,x) = tail rotor induced power in forward 
flight 

POTRF(x,xX) = tail rotor profile power in forward 
flight 


VITR = tail rotor induced velocity 
SWP = vertical stabilizer sweep angle in degrees 
SWEEP = vertical stabilizer sweep angle in 


radians 
LAVS = lever arm for vertical stabilizer 
V = O(X) = airspeed in knots 


CLATR = vertical stabilizer lift curve slope 


>! 


TEFPA = vertical stabilizer equivalent flat 
plate area 
TPP = added parasite power due to vertical 


stabilizer 
ALTR = vertical stabilizer angle of attack in 
radians 
ALTRDEG = vertical stabilizer angle of attack in 
degrees 


VSAR = vertical stabilizer aspect ratio 
SPAN = vertical stabilizer span 
S — vertical stabilizer planform area 
VERSTAB - equivalent power of vertical 
stabilizer 
VITRI = tail rotor induced power with vertical 
stabilizer 
TRT = tail rotor thrust with vertical stabilizer 
PITRFI(x,x) = tail rotor induced power with 
vertical stabilizer in forward 
tliġtt 
PTTRVSF(X,x) 7 tail rotor total power with 
vertical stabilizer in forward 
ΕΠΕ 
TTM(x,x) = tail rotor blade tip mach number 


Chapter Five Variables 


BLTW = main rotor twist angle in degrees 

THT = main rotor twist angle in radians 

AMAX = stall angle of attack for main rotor 
blades in degrees 


AM = stall angle of attack for main rotor blades 
in radians 

DA = disk area 

VT = main rotor tip velocity 

O(x) = airspeed in knots 


MU3 = maximum advance ratio 
AL90(x,X) = blade angle of attack at 90 degree 


position 
AL270(X,X) = blade angle of attack at 270 degree 
position 
MTIP = main rotor blade tip mach number 
M9O0(x,X) - main rotor blade mach number at 90 
degree position 
MCRIT(Xx,x) - main rotor blade critical mach 
number 


MD = main rotor blade critical mach number for 
drag divergence 

ALT1 = specification hover ceiling 

CTHC = thrust coefficient at hover ceiling 

TIPHC = tiploss at hover ceiling 

PIHC = main rotor induced power at hover ceiling 
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POHC = main rotor profile power at hover ceiling 
PINIGEH = induced power to HIGE at hover ceiling 
PTTI = total power to HIGE at hover ceiling 
TRTH = tail rotor thrust at hover ceiling 
οι tal rotor thrust coefficient at hover 
ceiling 
TIPTRHC = tail rotor tiploss at hover ceiling 
DELTA pressure ratio 
THETA temperature ratio 
PITRHC = tail rotor induced power at hover 
ceiling 
POTRHC = tail rotor profile power at hover 
ceiling 
PTTRHC = tall rotor total power at hover ceiling 
RSHP = maximum rotor shaft horsepower 
STYPE = s-type inlet 
ICESHD = ice shield inlet 
= straight in inlet 
INLET = total inlet losses 
PINLET = percent loss due to inlets 
RSHP1 = added horsepower for inlets 
RSHPIA = total horsepower required with inlets 
PS = percent loss due to partical separator 
BARR = barrier filter 
PARTSEP = partical separator 
EAPS = total losses due to engine air partical 
separators 
PEAPS = percent loss due to eaps 
RSHP2 = added horsepower for eaps 
RSHP2A = total power required with eaps 
HDIF = heat diffusers 
INRED = infra-red suppresser 
EEDS = total losses due to engine exhaust 
diffusers 
PEEDS = percent loss due to eeds 
RSHP3 = added horsepower for eeds 
RSHP3A = total power required with eeds 
LOSS = losses for one engine 
LOSSA = losses for two engines 
= losses for three engines 
ESHP = engine shaft horsepower 


Chapter Six Variables 


ENG = number of engines competing for selection 
MDT = maintenance down time 

MTBF = mean time between failure 

MTBR = mean time between replacement 

DW(x) = engine dry weight 

SHP(x) = engine shaft horsepower at military 
SFC(x) = specific fuel consumption at military 
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TG (x) initia cost 


OC (X) operating cost per hour 

PMA(x) = preventative maintenance per engine per 
hour 

MTBMA(x) = mean time between maintenance action 


AFL = average flight hours per year 
SL = aircraft service life 
TAV = average flight hour per flight 


YM(x) = engine yearly maintenance cost 

YO(x) = engine yearly operating cost 

NRPL(x) = number of engine replacements 

LC(x) = engine life-cycle cost 

RD(x) = engine research and development costs 


AVAIL(x) = engine availability 

MAINT(x) = engine maintainability 

RELY (x) = engine reliability 

RC(x) = replacement costs 

SV(x) = salvage costs 

EWT(x) = installation weight 

TRWT = transmission weight 

TRPWR = transmission power rating 

NCT,NPIN,NPO, etc. = N means new values of these 
variables 


Chapter Seven Variables 


SFC(X) = specific fuel consumption 

SHP(x) = shaft horsepower 

WDOTF (x) = fuel flow in pounds per hour 

BETAH = slope of the fuel flow versus horsepower 
curve 

ALPHAH = zero horsepower intercept 

DELTA = pressure ratio 

THETA = temperature ratio 

TEMP = specification temperature 

PHANTOM (x) = phantom horsepower 


MRV = maximum range velocity 
FFR = maximum range fuel flow 
MRP = maximum range referred horsepower 


MRPI = maximum range horsepower 

MEV = VMIN = maximum endurance velocity 
PMIN = SHP for maximum endurance 

ERSHPR = maximum endurance referred horsepower 
EFFR = maximum endurance fuel flow 
CRUISEV = cruise velocity 

CRUPWR = cruise power 

CRUFFR(X) = cruise fuel flow 

MAXRG = specification maximum range 

TFUEL = total fuel required 

NGW2 = new gross weight with required fuel 
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10. 


lJ. 


EŻ 


Chapter Eight Variables 


PDGW — percent difference between specification 
and design gross weight 
EW1 empty weight as of chapter ΠΠ 
EW2 empty weight as of chapter seven 
PTFI = hover power for design gross weight 
PDGW2 = percent difference in design gross 
weight 
DIF = difference between specification and 
design gross weight 
LC = useful load plus DIF 
FW = total fuel weight plus DIF 
NRANGE = range with FW fuel weight 
NGW3 = new selected gross weight 
T2FUEL = new selected fuel weight 
MCSHP = MCS = maximum rate of climb horsepower 
MCV - maximum rate of climb airspeed 
VVERT - maximum rate of climb in feet per minute 
LS = power available at sea level with partial 
installation losses 
PTASL - total power available at sea level with 
all losses 
D rotor diameter 
H rotor height above the ground at HIGE 
PA = power available at altitude 


PR(x) = power required at altitude 
THETA = temperature ratio 

DELTA = pressure ratio 

AL(x) = altitude in feet for section 8.3 


MHA = maximum hover altitude 
ALA(x) = altitude in feet for section 8. A 
VEFPA = vertical equivalent flat plate area 


SC = service ceiling 
BW = body width 
BH = body height 


Chapter Nine Variables 


All variables are the same as above. 


Chapter Ten Variables 


C(X) = component cost 

CE(x) = total cost 

IFR = inflation rate 

Q = quantity to be produced 
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B. MAIN PROGRAM 


l ! ww xk xx 


MAIN PROGRAM ` 


LEMEEXEXEXEREEEEEEREEEEEEEEREREERREEEEEEREERREREEEEEEERREEREREREEZEEXXE 

10 G=0:ZZ=0:Z=0 

20 IF CH3=3 THEN DIM A(1100):CH3=0 

30 IF DIM1=1 THEN GOTO 540 ELSE 

40 KEY OFF 

50 SCREEN 1,0 

60 COLOR 8,1 

70 FOR I= 1 TO 2 

80 IF I = 1 THEN FILL = 11 ELSE FILL = 12 

90 IF I = 1 THEN EDGE = 9 ELSE EDGE = 10 

100 IF I = 1 THEN X1=104: X2=82 ELSE X1=106: X2=84 
= 1 THEN Y1=86: Y2=132 ELSE Y1=84: Y2=130 


120 ' ΠΗ 

130 DRAW "C=EDGE;BM=X1;,=Y1;U30R4D12R12U12R4D30L4U12" 

140 DRAW "L12D12L4BE1P=FILL; ,=EDGE;" 

150 t "EV 

160 Χὶξ XI 4 26 

170 DRAW "C=EDGE;BM=X1;,=Y1;U30R20D4L16D9R8D4L8D9R16D4L20 
BElP-FILL;,-EDGE;" 

180 t "n, 

190 X12 X1 + 26 

200 DRAW "C=EDGE; BM=X1; ,=Y1;U30R4D26R16D4L20BE1P=FILL; ,= 
EDGE;" 

210 t "not 

220 Xl= XI 1 26 _ = 

230 DRAW "C-EDGE; BM-X1;,-2Y1;U30R20D30L20BR4 BU4U22R12D22L1 
2BG1P=FILL; ,=EDGE;" 

240 'NEXT LINE 

250 t "pn 

260 DRAW "C=EDGE;BM=X2;,=Y2;U30R16f5D20g5L16BR4BU4U22R12D 
22L12BG1P=FILL; ,=EDGE;" 

270 t "EN 

280 X2= X2 4 26 

290 DRAW "C=EDGE; BM=X2; ,=Y2;U30R20D4L16D9R8D4L8D9R16D4L 
20BE1P=FILL; ,=EDGE;" 

300 t "gt š 

310 X2= X2 + 26 

320 DRAW "C=EDGE;BM=X2; ,=Y2;BU1U2E2R16H19U4E2R20F2D2G2" 
330 DRAW "L16F19D4G2L20H2BR2BU1P=FILL; ,=EDGE;" 

340 t "T" 

350 X2= X2 + 30 

360 DRAW "C=EDGE;BM=X2; ,=Y2;U30R4D30L4BE1P=FILL; ,=EDGE;" 
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370 ' "G"380 X2- X2 + 14 

390 DRAW "C-EDGE;BM-X2;,-2Y2;U30R20DA4L16D22R12U4L4UA4R8" 
400 DRAW "D12L20BE1P=FILL; ,=EDGE;" 

410 ' "yN" 

420 X2= X2 + 26 

430 DRAW "C=EDGE; BM=X2;,=Y2;U30R4F12U12R4D30L4H12D12L 
4BElP-FILL;,-EDGE;" 

440 NEXT I 

450 FOR I-1 TO 2000:NEXT I:G-14G 

460 COLOR 4,1:1F G-1 THEN GOTO 70 ELSE IF G-2 THEN COLOR 
1,1:GOTO 70 ELSE GOTO 480 

470 CLEAR,,1500 

480 SCREEN 2:SCREEN 0,1:COLOR 15,1 

490 DIM A(1100),W(15,20) ,GW(20) ,WE(20) , PINF(2,60) , POF(2,60 
), PPF(2,60) ,PTF(2,60) , TM(2,20) ,O(20) ,W2A(20) ,W2B(20) ,W6A(2 
0) ,W6B(20) ,W6C(20) , PT(20) , FM(20) ,DL(20) ,AL90(2,60) ,AL270(2 
,60),PITRF(2,60) , POTRF(2,60),PTTRF(2,60) , VERSTAB(2,60) ,PTT 
RVSF (2,20) , PITRF1(2,20) 

500 DIM PTT(2,60) , TTM(2,20) , TRT(2,20) ,L(2,20) ,M90(2,60) ,MC 
RIT(2,60) ,PS(2,60) , PM(2,60) ,RHO(60) , PINF1(60) , POF1(60) , PTF 
1(60), ΡΙΤΕ1 (60) ,ΡΟΤΕ1 (60) , PTTR1(60) ,PR(60) , PPF1(60) , PITRF2 
(60) , POTRF2 (60) , PTTRF1(60),PS1(60) , PM1(60) ,M901(60) ,MCRIT1 
(60) 

510 DIM PITRFI(2,20),AL901(60),AL2701(60),PTTI (60) ,ALA (60) 
,C(20),CE(20) ,PTF5(2,20) , ANG(200) , AL(60) , SAVEP(21) , SAVEV(2 
1),RSHP(5,20),POFA(2,20),PPFA(2,20), PTFA(2,20) , PITRFA(2,20 
), POTRFA(2,20) , PTTRFA(2,20) , SAVEPS (21) , SAVEPM(21) 

520 OPTION BASE 0 

530 DIM1-1 

540 ! DEFINE CONSTANTS 

550 ! 

560 PI = 3.1415927# 

570 RHO = 2.37691E-03 

580 M(1) = 1116.89 

590 LOCATE 1,1,0 

600 ' 

610 ' 

620 ' 

630 ' ΧΧΧΧΧΧ ΜΑΤΝ MENU ΧΧΧΧΧΧ 

640 KEY(5) ON 

650 ON KEY(5) GOSUB 670 

660 GOTO 680 

670 CLEAR,,1500:GOTO 490 

680 ' 

690 CLS:PRINT "~C=ALL/":PRINT "~L=HELO/" 

700 COLOR 1,1,1:CLS:LOCATE 23,1,0:PRINT 
"-W-MAINMENU/":LOCATE ,,0:INPUT;"",Y1:CLS:COLOR 15,1,1:IF 
Yl-11 THEN GOSUB 740 ELSE IF Y1-12 GOTO 1860 

710 CLS:PRINT "-W-LOADNOTE/":GOTO 720 

720 IF Yl-1 THEN CHAIN "CHAP1",,ALL ELSE IF Yl=2 THEN 
CHAIN "CHAP2",,ALL ELSE IF Y1-3 THEN CHAIN "CHAP3",,ALL 
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ELSE IF Yle4 THEN CHAIN "CHAP4",,ALL ELSE IF Yl=5 THEN 

CHAIN "CHAP5",,ALL ELSE 

730 IF Yl=6 THEN CHAIN "CHAP6",,ALL ELSE IF Yl=7 THEN 

CHAIN "CHAP7",,ALL ELSE IF Yl1=8 THEN CHAIN "CHAP8", , ALL 

ELSE IF Y1-9 THEN CHAIN "CHAP9",,ALL ELSE IF Y1-10 THEN 

CHAIN "CHAP10",,ALL 

740 

750 ' 

760 ' *k***** DATA INPUT FROM FILE DISK  ****** 

770 ' 

780 ' 

790 CLS:LOCATE 23,1,0:PRINT 'l-W-DISK/'':GOSUB 1030:LOCATE 

25,27,0:PRINT " ": OPEN 

"B:DATAl" FOR INPUT AS $1:INPUT $1, Z:FOR I-1 TO 10:INPUT 

#1, LL(I):NEXT I:CLOSE #1 

800 LOCATE 14,20,1:PRINT "THE LAST CHAPTER DATA ENTERED 

IS:";Z:LOCATE 16,20,1:1NPUT "WHICH CHAPTER DATA DO YOU 

WANT ENTERED";ZB:PRINT "-C-ALL/":PRINT "-W-LOADDATA/":IF 

ZB-2 THEN GOTO 820 ELSE 

810 IF ZB-3 GOTO 840 ELSE IF ZB-4 GOTO 900 ELSE IF ZB-5 

GOTO 1070 ELSE IF ZB=6 GOTO 1220 ELSE IF ZB=7 THEN GOTO 

1420 ELSE IF ZB=8 GOTO 1640 

820 OPEN "B:DATA2" FOR INPUT AS #1:FOR I-1 TO 18:INPUT 41, 

A(I):NEXT I:CLOSE #1 

830 SGW=A(1):GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) : OMEGA= 

A(6) :CT=A(7) :SIGMA=A(8) : B=A(9) :C=A(10) :AR=A(11) :CL=A(12):c 

LALPHA=A (13) :CDO=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 

=A(18):RETURN 700 

840 OPEN "B:DATA3" FOR INPUT AS #1:FOR I=1 TO LL(1):INPUT 

#1, A(I):NEXT I:CLOSE #1 

850 SGW=A(1):GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) :OMEGA= 

A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11) :CL=A(12):¢ 

LALPHA=A (13) :CDO=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 

=A (18) : TIPLOSS=A(19) : PIN=A(20) : PO=A(21) : PT=A(22) : HP-A(23) : 

PERINDP=A (24) 

860 V=24:FOR I=1 TO 3:FOR J=1 TO 15:V=V+1:Q=J+24:W((Q- 

24) ,1I)=A(V):NEXT J,I:FOR I=1 TO 

3:W2A(I)=A(I+69) :W2B(I)=A(I+72) :W6A(I)=A(I+75) :W6B(I)=A(I+ 

78) :W6C(1I)=A(I+81) :NEXT 

I:N=A(85) :WE(N) =A(86) :GW(N) =A(87) :DL(N-1)=A(88) : FK (N- 
1)=A(89) :FL=A(90) : IRLG=A(91) 

870 NW=A(92) : PERDIFW=A(93) : PERDIFP=A(94) : Y=A(95) : FUEL=A 
(96) : PEOPLE=A (97) :UL=A(98) : SPECIAL=A (99) : ENGINE=A(100) :ZZ= 

A(101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106) : PIN 

I=A(107) : PTI=A(108) :M=A(109) : EFPA=A(110) :RHO(2)=A(111) :MM= 

A(112) :M(2)=A(113) 

880 CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117): 

MAXF2-A(118):MAXCRU1-2A(119):ALT-A(120) : TEMP-A (121) : LL-A (12 

2):G=123:LL=LL+1:FOR I=1 TO LL:0(I)=A(G) :G=G+1:NEXT 

I:G=G+1+LL:G1=G+1+2*LL: G2=G1+1+2* LL: G3=G2+1+2*LL:G4=G3+1+2 

*LL 
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ο ος τι πο 2:FOR J=1 TO LL:PINEF(I,J)-A(G):POF(I,J) 
=A(G1):PPF(I,J)=A(G2):PTF(I,J)=A(G3):TM(I,J)=A(G4):G=G+1:G 
12G1-1:G22G2-1:G32G3-1:G4z2G4-1:NEXT J,I:CLOSE £1:LL-LL- 
IM-RETURN 700 

900 OPEN "B:DATA4" FOR INPUT AS #1:FOR I=1 TO LL(2):INPUT 
#1, A(I):NEXT I:CLOSE #1 

910 SGW=A(1):GW1=A(2) :WE=A(3):VTIPMAX=A(4) :R=A(5) :OMEGA= 
A(6):CT=A(7) :SIGMA=A(8) : B=A(9) :C=A(10) :AR=A(11) :CL=A(12):C 
LALPHA=A (13) :CDO=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 
=A (18) :TIPLOSS=A(19) : PIN=A(20) : PO=A(21) : PT=A(22) : HP=A(23): 
PERINDP=A (24) 

920 V3=24:FOR I=1 TO 3:FOR J=1 TO 15: V3=V34+1: Q=J+24:W((Q- 
24) ,1)=A(V3):NEXT J,I:FOR I=l TO 3:W2A(I)=A(I+69) :W2B(TI) 
=A (I+72) :W6A(I)=A(I+75) :W6B(I)=A(I+78) :W6C(I) =A(I+81) :NEXT 
T:N=A(85) :WE(N)=A(86) :GW(N)=A(87) :DL(N-1) =A(88) : FM(N-1) =A( 
89) : FL-A(90) : IRLG=A(91) 

930 NW-A(92):PERDIFW-A(93):PERDIFP-A(94):Y-A(95):FUEL- 
A(96):PEOPLE-A(97) :UL-A(98) : SPECIAL-A(99) : ENGINE-A (100) :ZZ 
=A(101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106):PI 
NI=A (107) : PTI=A(108) :M=A(109) :EFPA=A(110):RHO(2)=A(111):MM 
=A(112):M(2)=A(113) 

940 CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117) : MAX 
F2=A (118) :MAXCRU1=A(119) :ALT=A(120) : TEMP=A (121) :LL=A(122): 
TR=A (123) : TRPM=A(124) :OMEGAT=A (125) : TCDO=A(126) :BT-A (127): 
TAR=A (128): TRC=A(129) : TTR=A(130) :CTTR=A(131) : TRB=A(132):SI 
GMAT=A (133) : V=A(134) 

950 SPAN=A(135) :S=A(136) :SWP=A(137) : SWEEP=A (138) : LAVS=A 
(139) : VSAR=A(140) : BETA2=A(141) :T=A(142) :T2=A(143) :T3=A(144 
) : CLATR=A (145) :ALTR=A(146) :ALTRDEG=A(147) : TL=A(148) :G=149: 
ME-ELFT:FOR I-1 TO LL:O(I)-A(G):6-GHl:NEXT I:G=G+1+LL:Gl= 
G+1+2*LL:G2=G1+1+2*LL = 

960 G3=G2+1+2*LL: G4=G3+1+2*LL: FOR I=1l TO 2:FOR J=1 TO 
LL:PINF(I,J)sA(G):POF(I,J)-2A(G1):PPF(I,J)-A(G2):PTF(I,J)-A 
(G3):TM(I,J)=A(G4) :G=G+1:G1=G1+1:G2=G2+1:G63=G3+1:G4=G4+1:N 
EXT J,I 

970 G5=G4+2:G6=G5+2:G7=G6+2:FOR I=l TO 2:PITR(I)=A(G4): 
POTR(I)=A(G5) : PTTR(I)=A(G6) : CLTR(I)=A(G7) :G4=G4+1:G5=G5+1: 
G6=G6+1:G7=G7+1:NEXT I:G8=G7+1+2* (LL-1) :G9=G8+1+2* (LL-1) 
980 FOR I=l TO 2:FOR J=2 TO LL: PITRF(I,J)=A(G7):POTRF(I,J) 
=A(G8) :PTTRF(1I,J)=A(G9) :G7=G7+1:G8=G8+1:G9=G9+1:NEXT J,I: 
Gl02G9-1-2*LL:Gl112G10-1-2*LL:G122G11-1-2*LL:G132GC12-71-2*LL 
>G14=G13+1+2*LL 

990 FOR I=1 TO 2:FOR J=1 TO LL: TITM(I,J)=A(G9):TRT(I,J)= 
A(Gl0) :L(L,J)=A(G11):VERSTAB(I,J)=A(G12) : PTTRVSF(I,J)=A(G1 
3) :PITRFI(I,J)=A(G14) :G9=G9+1:G10=G10+1:G611=G11+1:612=G12+ 
1:G13=G13+1:G614=G14+1:NEXT J,I:LL=LL-1:CLOSE #1:RETURN 700 
1000 ! *** PAUSE SUBROUTINE «κκ 

EO ! 

MO20 ' 

1030 IF AP=1 THEN LOCATE 25,79,0 ELSE LOCATE 25,27,0:PRINT 
"press any key to continue" 
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1040 AS-INKEVS:IF AS="" THEN 1030 

1050 RETURN 

1060 LOCATE 1,1,0 

1070 OPEN "B:DATA5" FOR INPUT AS #1:FOR I=1 TO LL(3):INPUT 
πι, ACL) NEAT 2 CLOSE 4a 

1080 SGW=A(1):GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) :OMEGA= 
A(6) :CT=A(7) :SIGMA=A(8) : B=A(9) :C=A(10) :AR=A(11) :CL=A(12):C 
LALPHA=A (13) : CDO=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) : MAXFVEL 
=A(18): TIPLOSS=A(19) : PIN=A(20) : PO=A(21) : PT=A(22) :HP=A(23): 
PERINDP=A (24) 

1090 V3=24:FOR I=1 TO 3:FOR J=1 TO 15:V3=V3+1:Q=J+24:W((Q- 
24) ,1)=A(V3):NEXT J,I:FOR I=1 TO 3:W2A(I)=A(I+69) :W2B(I) 
=A(I+72) :W6A(I)=A(I+75) :W6B(I)=A(I+78) :W6C(1I) =A(I+81) :NEXT 
I:N=A(85) :WE(N)=A(86) :GW(N) =A(87) :DL(N-1)=A(88) :FM(N- 
1)=A(89) : FL=A(90) : IRLG=A(91) 

1100 NW=A(92) : PERDIFW=A(93) : PERDIFP=A(94) : Y=A(95) : FUEL= 
A(96) : PEOPLE=A (97) :UL=A(98) : SPECIAL=A (99) : ENGINE=A(100) :22Z 
=A (101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106):PI 
NI=A(107) : PTI=A(108) :M=A(109) : EFPA=A(110) :RHO(2)=A(111) :MM 
=A (112) :M(2)=A(113) 

1110 CRUISEV=A(114) :CRU=A(115) : CRU2=A(116) ΜΑΧΕΞΆΓ(ΙΙΠ) ΣΙ 
F2-A(118):MAXCRUI12A(119):ALT-A(120): TEMP-ZA(121):LL-A(12208 
TR=A (123) : TRPM=A(124) ;OMEGAT=A(125) : TCDO=A(126) :BT=A(127): 
TAR=A (128) :TRC=A(129) : TTR=A(130) :CTTR=A(131) : TRB=A(132) :SI 
GMAT=A (133) :V=A(134) 

1120 SPAN=A(135) :S=A(136) :SWP=A(137) : SWEEP=A(138) : LAVS=A 
(139) : VSAR=A (140) : BETA2=A(141) : T=A(142) :T2=A(143) :T3=A(144 
) : CLATR=A (145) : ALTR=A(146) :ALTRDEG=A (147) : TL=A(148) : BLTW=A 
(149) ;CM=A(150) : THT=A(151) :AM=A(152) : AMAX=A(153) : PINIGE=A( 
154):PTTISA (155) 

1130 RSHP=A(156) :STYPE=A (157) : ICESHD=A(158) :STRTIN=A(159): 
INLET=A (160) : BARR=A(161) : PARTSEP=A(162) : EAPS=A(163) :HDIF=A 
(164) : INRED=A(165) : EEDS=A(166) : RSHP1=A(167) :RSHP2=A(168):R 
SHP3=A (169) :RSHP1A=A(170) :RSHP2A=A(171) :RSHP3A=A(172):ESHP 
=A(173) : LOSS=A(174) 

1140 G=175:LL=LL+1:FOR I=1 TO LL:0(1I)=A(G) :G=G+1:NEXT 
I:G=G+1+LL:G1=G+1+2*LL:G2=G1+1+2*LL 

1150 G3=G2+1+2*LL:G4=G3+1+2*LL: FOR I=1 TO 2:FOR J=1 το 
LL:PINF(I,J)-A(G):POF(I,J)-2A(G1):PPF(I,J)-2A(G2):PTF(I,J)-A 
(G3) :TM(1I,J)=A(G4) :G=G+1:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:N 
EXD oe 

1160 G5=G4+2:G6=G5+2:G7=G6+2:FOR I=1 TO 2:PITR(I)=A(G4): 
POTR(I)=A(G5) : PTTR(I) =A(G6) : CLTR(I) =A(G7) :G4=G4+1:G5=G5+1: 
G6=G6+1:G7=G7+1: NEXT I:G8=G7+1+2* (LL-1) :G9=G8+1+2* (LL-1) 
1170 FOR I=1 TO 2:FOR J=2 TO LL: PITRF(I,J)=A(G7) : POTRF 
(I,J) =A(G8):PTTRF(I,J)=A(G9) :G7=G7+1: G8=G8+1: G9=G9+1:NEXT 
J,1I:G1l0=G9+1+2*LL: G11=G10+1+2 * LL: G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

1180 FOR I-1 TO 2:FOR J=1 TO LL:TIM(L,J) AGO K a OD p 

=A (G10) :L(I,J)=A(G11) : VERSTAB(1I,J)=A(G12) : PTTRVSF(I,J)=A(G 
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13) :PITRFI(I,J)=A(G14) :G9=G9+1:G10=G10+1:G11=G11+1:G12=G12 
*t1:G132G13-1:G142G14-1:NEXT J,I 

1190 G15=G14+1:G16=G15+1+2*LL: G17=G16+1+2*LL: G18=G17+1+2* 
LL: G19=G18+1+2*LL: G20=G19+1+2* LL: G21=G20+1+2*LL 

ΙΤ FOR I=] TO 2:FOR J=1 TO LL: AL90(1I,J)=A(G15) :AL270 
(I,J)=A(G16) :M90(1,J7)=A(G17) :MCRIT(I,J)=A(G18) :PS(I,J)=A(G 
19) :PM(1I,J)=A(G20) : PTT (1,7) =A(G21) :G15=G15+1:G16=G16+1:G17 
=G617+1:G18=G18+1:G619=G19+1:G20=G20+1:G21=G21+1:NEXT 
J,I:LL-LL-1:CLOSE #1:RETURN 700 

1210 RETURN 

1220 OPEN "B:DATA6" FOR INPUT AS fl:FOR I-1 TO LL(4): INPUT 
UE UAUOL):NEXT I:CLOSE #1 

1230 SGW=A(1):GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) : OMEGA= 
A(6):CT=A(7):SIGMA=A(8):B=A(9):C=A(10):AR=A(11):CL=A(12):C 
LALPHA=A(13) :CDO=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 
=A(18) :TIPLOSS=A(19) : PIN=A(20) : POH=A(21) : PT=A(22) :HP=A(23): 
PERINDP=A (24) 

1240 V3-224:FOR I-1 TO 3:FOR J-1 TO 15:V3=V3+1:Q=J+24:W((Q- 
24) ,I)=A(V3) :NEXT J,1I:FOR I=1 TO 3:W2A(L) =A(I+69) : 
W2B(I)-A(I-72):W6A(I)-A(I475):W6B(I)7A(I4-78):W6C(I)-A(I-81 
J)J:NEXT I:sN79A(85):WE(N)7-A(86):GW(N)7A(87):DL(N- 
1)-A(88):FM(N-1)-A(89):FL-A(90):IRLG-A(91) 

1250 NW=A(92) : PERDIFW=A(93) : PERDIFP=A(94) : Y=A(95) : FUEL= 
A(96) : PEOPLE=A (97) :UL=A(98) :SPECIAL=A(99) : ENGINE=A(100) :ZZ 
=A(101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106) : PI 
NI=A(107) :PTI=A(108) :M=A(109) :EFPA=A(110) :RHO(2)=A(111) «ΜΜ 
=A(112) :M(2)=A(113) 

1260 CRUISEV=A(114) : CRU=A(115) :CRU2=A(116) :MAXF=A(117) :MAX 
ean tts) >MAXCRUI=A(119) :ALT=A(120) : TEMP=A(121) : LL=A(122): 
TR=A (123) : TRPM=A (124) :OMEGAT=A (125) : TCDO=A(126) : BT=A(127): 
TAR=A (128) : TRC=A (129) : TTR=A(130) : CTTR=A(131) : TRB=A(132}:SI 
GMAT=A (133) :V=A(134) 

1270 SPAN=A(135) :S=A(136) :SWP=A(137) :SWEEP=A(138) : LAVS=A 
res VSAR—A( 140) : BETA2=A(141) :T=A(142) :T2=A(143) :T3=A(144 
) ;CLATR=A (145) :ALTR=A (146) : ALTRDEG=A (147) :TL=A(148) : BLTW=A 
(149) :CM=A(150) : THT=A(151) :AM=A(152) : AMAX=A(153) : PINIGE=A ( 
154) :PTTI=A(155) 

1280 RSHP=A(156) :STYPE=A(157) : ICESHD=A (158) :STRTIN=A (159): 
INLET=A (160) : BARR=A(161) : PARTSEP=A(162) :EAPS=A(163) :HDIF=A 
(164) : INRED=A(165) : EEDS=A(166) :RSHP1=A(167) :RSHP2=A(168):R 
SHP3=A (169) :RSHP1LA=A(170) :RSHP2A=A(171) :RSHP3A=A(172) :ESHP 
=A(173) : LOSS=A(174) 

1290 ENG=A(175) : EN=A(176) : TRPWR=A(177) : TRWT=A(178) :NGW=A 
(179) :NPT=A (180) :NDL=A(181) :NFM=A(182) :NPERINDP=A(183) :NPE 
RDIFP=A(184) :NPERDIFW=A (185) :G=186:LL=LL+1:FOR I=1 TO 

LL: O(1)=A(G) :G=G+t1l: NEXT I:G=G+1+LbL:G1=G+1+2*LL:G2=G1+1 
+2*LL 

1300 G3=G2+1+2*LL: G4=G3+1+2*LL:FOR I=1 TO 2:FOR J=1 TO 

LL: PINF(I,J)=A(G) : POF(I,J)=A(G1) :PPF(I,J)=A(G2) :PTF(I,J)=A 
(G3) :TM(1,J7)=A(G4) :G=G+1:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:N 
EXT J, 1 
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1310 G5=G4+2:G6=G5+2:G7=G6+2:FOR I=l TO 2:PITR(1I)=A(G4) 

: POTR(I)=A(G5) : PTTR(I) =A(G6) : CLTR(I) =A(G7) :G4=G4+1:G5=G5+1 
:G6=G6+1:G7=G7+1:NEXT I:G8=G7+1+2* (LL-1) :G9=G8+1+2* (LL-1) 
1320 FOR I=1 TO 2:FOR J=2 TO LL: PITRF(I,J)=A(G7) :POTRF 
(I,7)=A(G8) :PTTRF(I,J7)=A(G9) :G7=G7+1:G8=G8+1:G9=G9+1:NEXT 
J,I:G1l0=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

1330 FOR I-1 TO 2:FOR J-1 TO LL:TTM(I,J)-A(G9):TRT(I,J) 
-A(G10):L(I,J)-A(G11):VERSTAB(I,J)-2A(G12):PTTRVSF(I,J)-A(G 
13) :PITRFI(I,J)=A(G14) :G9=G9+1:G10=G10+1:G11=G11+1:612=G12 
-1:G132G1341:G14-2G1441:NEXT J,I 

1340 G15=G144+1:G16=G15+14+2*LL:G17=G16+1+2*LL:G18=G17+1+2* 
LL:G19=G18+1+2*LL: G20=G19+1+2*LL:G21=G20+1+2*LL 

1350 FOR I=l TO 2:FOR J=1 TO LL:AL90(I,J7)=A(G15) :AL270 
(I,J) =A(G16) :M90(I,7)=A(G17) :MCRIT(I,J)=A(G18) :PS(I,J)=A(G 
19) :PM(I,J)=A(G20) : PTT(I,J) =A(G21) :G15=G15+1:G16=G16+1:G17 
=G17+1:G18=G18+1:G19=G19+1:G20=G20+1:G21=G21+1:NEXT J,I: 
LL=LL-1 

1360 G22=G21+1:G23=G22+1+ENG:G24=G23+1+ENG :G25=G24+1+ENG: 
G26=G25+1+ENG: G27=G26+1+ENG : G28=G27+1+ENG:G29=G28+1+ENG:G3 
0=G29+1+ENG :G31=G30+1+ENG: G3 2=G31+1+ENG: G3 3=G32+1+ENG:G34= 
G33+1+ENG:G35=G34+1+ENG:G36=G35+1+ENG : G3 7=G36+1+ENG:G38=G3 
7+1+ENG 

1370 G39=G38+1+ENG :G40=G39+1+ENG:G41=G40+1+ENG 

1380 FOR I=l TO ENG:DW(1I)=A(G22) :SHP(I)=A(G23) :SFC(I)=A 
(G24) :IC(I)=A(G25) :OC(I) =A(G26) : PMA(I)=A(G27) :MTBMA(I)=A(G 
28) :MDT(I) =A(G29) :MTBF(I)=A(G30) :MTBR(I)=A(G31) :RC(I)=A(G3 
2) :SV(I)=A(G33) : AVAIL(I)=A(G34) :RELY (I) =A(G35) : MAINT (I) =A( 
(256 

1390 LC(I)=A(G37) :EWT(I)=A(G38) : YO(I)=A(G39) : YN (I) -A(G40) : 
NRPL(I)-2A(G41):G222G2241:G232G2341:G242G2441:G252G2541:G26 
=G26+1:G27=G27+1:G28=G28+1:G29=G29+1:G30=G30+1:G31=G3141:G 
32=G32+1:633=G33+1:634=G34+1:635=G35+1:G636=G364+1 

1400 G37=G37+1:G638=G38+1:G639=G39+1:G40=G40+1:G41=G4141: 
NEXT I:CLOSE #1:RETURN 700 

1410 RETURN 

1420 OPEN "B:DATA7" FOR INPUT AS #1:FOR ΙΞ1 TO LL(5):INPUT 
#1, A(I):NEXT I:CLOSE #1 

1430 SGW=A(1):GW1=A(2) :WE=A(3) : VTIPMAX=A (4) :R=A(5) : OMEGA- 
A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11):CL=A(12):C 
LALPHA=A (13) :CDO=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 
=A (18) :TIPLOSS=A (19) : PIN=A(20) : PO=A(21) : PT=A(22) : HP=A(23) : 
PERINDP=A (24) 

1440 V3224:FOR I-1 TO 3:FOR J=1 TO 15:V3=V3+1:0=J3+24:W((Q- 
24),I)-A(V3):NEXT J,I:FOR I-1 TO 3:W2A(I)-A(I-69): 
W2B(I)=A(I+72) :W6A(I)=A(I+75) :W6B(I)=A(I+78) :W6C(I)=A(I+81 
):NEXT I:N-A(85):WE(N)-A(86):GW(N)2A(87) :DL(N-1)-A(88):FM : 
(N-1)-2A(89):FL-A(90):IRLG-A(91) 

1450 NW-A(92):PERDIFW-A(93):PERDIFP-A(94):Y-A(95) : FUEL- 
A(96):PEOPLE-A(97) :UL-A (98) : SPECIAL-A(99) : ENGINE-A ( 100) :ZZ 
-A(101):AB-A(102):GR-A(103):RH-A(104) : H-A (105) : D-A(106) : PI 
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NI=A(107) : PTI=A(108) :M=A(109) :EFPA=A(110) :RHO(2)=A(111):MM 
=A(112) :M(2)=A(113) 

1460 CRUISEV=A(114) : CRU=A(115) : CRU2=A(116) :MAXF=A(117) :MAX 
F2=A (118) :MAXCRU1=A(119) :ALT=A(120) :TEMP=A(121) : LL=A(122): 
TR=A (123) : TRPM=A(124) :OMEGAT=A (125) :TCDO=A(126) :BT=A(127) : 
TAR=A (128) : TRC=A(129) : TTR=A(130) :CTTR=A(131) : TRB=A(132):SI 
GMAT=A (133) :V=A(134) 

1470 SPAN=A(135) :S=A(136) :SWP=A(137) :SWEEP=A(138) : LAVS=A 
(139) : VSAR=A (140) : BETA2=A(141) :T=A(142) :T2=A(143) :T3=A(144 
) :CLATR=A (145) :ALTR=A (146) : ALTRDEG=A (147) : TL=A(148) : BLTW=A 
(149) :CM=A (150) : THT=A(151) :AM=A(152) : AMAX=A (153) : PINIGE=A ( 
154): PTTI-A(155) 

1480 RSHP=A(156) :STYPE=A(157) : ICESHD=A(158) :STRTIN=A(159) : 
INLET=A (160) : BARR=A(161) : PARTSEP=A (162) :EAPS=A(163) :HDIF=A 
(164) : INRED=A (165) :EEDS=A(166) :RSHP1=A(167) :RSHP2=A(168):R 
SHP3=A (169) :RSHP1A=A(170) :RSHP2A=A(171) :RSHP3A=A(172) :ESHP 
=A(173) : LOSS=A(174) 

1490 ENG=A(175) :EN=A(176) : TRPWR=A(177) : TRWT=A (178) :NGW=A 
(179) ;:NPT=A(180) :NDL=A(181) :NFM=A(182) :NPERINDP=A(183) :NPE 
RDIFP=A (184) :NPERDIFW=A(185):FOR I=1 TO 

3:SFC(1I)=A(185+1) :SHP(I)=A(188+I1) :WDOTF(I)=A(191+1) : NEXT 
I: BETAH=A (195) : ALPHAH (1)=A(196) 

1500 ALPHAH(2)=A(197) : PHANTOM(1)=A(198) : PHANTOM (2) =A(199) : 
MRV=A (200) :MRP=A(201) : FFR=A(202) :MEV=A(203) :ERSHPR=A(204) : 
EFFR=A(205) :CRUPWR(1)=A(206) : CRUPWR(2)=A(207) : CRUFFR(1)=A( 
208) :CRUFFR(2)=A(209) : TFUEL=A(210) : TIME=A(211) :NGW2=A(212) 
:G2213 

1510 LL-LL-1:FOR I-1 TO LL:O(I)-2A(G):G2G-1:NEXT I:G2G-t1- 
LL: GL=G+1+2* LL: G2=G1+1+2*LL 

1520 G3=G2+1+2*LL: G4=G3+1+2*LL:FOR I=1 TO 2:FOR J-1 TO 

LL: PINF(I,J)=A(G) :POF(1I,J)=A(G1):PPF(I,J)=A(G2):PTF(I,J)=A 
(G3) :TM(I,J) =A(G4) :G=G+1:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:N 
ET J,I 

1530 G5=G4+2:G6=G5+2:G7=G6+2:FOR I-1 TO 2:PITR(I)=A(G4) 

>: POTR(I)=A(G5) : PTTR(I) =A(G6) :CLTR(I)=A(G7) :G4=G4+1:G5=G5+1 
>G6=G6+1:G7=G7+1: NEXT 1:G8=G7+1+2* (LL-1) :G9=G8+1+2* (LL-1) 
1540 FOR I=1 TO 2:FOR J=2 TO LL: PITRF(1I,J)=A(G7) :POTRF 
(I,J)=A(G8):PTTRF(1I,J)=A(G9) :G7=G7+1: G8=G8+1:G9=G9+1: NEXT 
J,1:G1l0=G9+14+2* LL: G11=G10+1+2* LL: G12=G114+1+2*LL: G13=G12+1+ 
2*LL:G142G13-T1-2*LL 

1550 FOR I-l1 TO 2:FOR J21 TO LL:TTM(I,J)AsA(G9):TRT(I,J) 
=A(G10):L(1I,J)=A(G11) : VERSTAB(I,J)=A(G12) : PTTRVSF(I,J)=A(G 
13) :PITRFI(1I,J)=A(G14) :G9=G9+1:G10=G10+1:G11=G11+1:G12=G12 
+1:G13=G13+1:G14=G14+1:NEXT J,1 

1560 G15=G144+1:G616=G15+1+2*LL: G17=G16+1+2*LL: G18=G17+1+2* 
LL: G19=G18+1+2* LL: G20=G19+1+2*LL: G21=G20+1+2*LL 

1570 -FOR I=1 TO 2:FOR J=1 TO LL:AL90(1I,J)=A(G15) :AL270 
(I,J)2A(G16):M90(I,J)-2A(G17):MCRIT(I,J)-7A(G18):PS(I,J)-A(G 
19): PM(I,J)-72A(G20):PTT(I,J)-2A(G21):G152G15-*1:G16-2G16-71:G17 
—G174T1:G182G18-41:G192G19-41:G20-2G20-71:G212G21-1: NEXT J,I: 
LL=LL-1 
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1580 G22=G21+1:G23=G22+1+ENG:G24=G23+1+ENG:G25=G24+1+ENG: 
G26=G25+1+ENG:G27=G26+1+ENG:G28=G27+1+ENG:G29=G28+1+ENG:G3 
0=G29+1+ENG:G31=G30+1+ENG:G32=G31+1+ENG:G33=G32+1+ENG:G34= 
G33+1+ENG:G35=G34+1+ENG:G36=G35+1+ENG:G37=G36+1+ENG:G38=G3 
7-1-ENG 

1590 G39=G38+1+ENG:G40=G39+1+ENG:G41=G40+1+ENG 

1600 FOR I=1 TO ENG:DW(I)=A(G22) :SHP(I)=A(G23):SFC(I)=A 
(G24) :IC(I)=A(G25) :OC(I)=A(G26) : PMA(I) =A(G27) :MTBMA(I)=A(G 
28) :MDT(I)=A(G29) :MTBF(I)=A(G30) :MTBR(I)=A(G31) :RC(I)=A(G3 
2):SV(I)=A(G33) :AVAIL(I)=A(G34) :RELY(I)=A(G35) : MAINT (I) =A( 
G36) 

1610 LC(I)=A(G37):EWT(I)=A(G38):YO(I)=A(G39):YM(I)=A(G40): 
NRPL(I)=A(G41):G22=G22+1:G23=G23+1:G24=G24+1:G25=G25+1:G26 
=G26+1:G27=G27+1:G28=G28+1:G29=G29+1:G30=G30+1:G31=G31+1:G 
32=G32+1:633=G33+1:G634=G34+1:G635=G35+1:G36=G36+1 

1620 G37=G37+1:G38=G38+1:G39=G39+1:G640=G404+1:G41=G41+4+1: 
NEXT I:CLOSE #1:RETURN 700 

1630 RETURN 

1640 OPEN "B:DATA8" FOR INPUT AS #1:FOR 1Ξ1 TO LL(6):INPUT 
#1, A(I):NEXT I:CLOSE #1 

1650 SGW=A(1):GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) :OMEGA= 
A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11):CL=A(12):¢C 
LALPHA=A (13) : CDO=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) : MAXFVEL 
=A(18) : TIPLOSS=A(19) : PIN=A(20) : PO=A(21) : PT=A(22) :HP=A(23): 
PERINDP=A (24) 

1660 V3=24:FOR I=1 TO 3:FOR J=1 TO 15:V3=V3+1:Q=J+24:W((Q- 
24) ,1I)=A(V3) :NEXT J,I:FOR I=1 TO 3:W2A(I)=A(I+69): 
W2B(I)=A(I+72) :W6A(I) =A(I+75) :W6B(I)=A(I+78) :W6C(I)=A(I+81 
) :NEXT I:N=A(85) :WE(N)=A(86) :GW(N)=A(87) :DL(N- 

1)=A(88) :FM(N-1)=A(89) : FL=A(90) : IRLG=A(91) 

1670 NW=A(92) : PERDIFW=A(93) : PERDIFP=A(94) : Y=A(95) : FUEL= 
A(96) : PEOPLE=A (97) :UL=A(98) : SPECIAL=A (99) : ENGINE=A(100) :2Z 
=A (101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106) : PI 
NI=A(107) : PTI=A(108) :M=A(109) : EFPA=A(110) :RHO(2)=A(111) :™™ 
=A (112) :M(2)=A(113) 

1680 CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117) :MAX 
F2=A(118) :MAXCRU1=A(119) :ALT=A(120) : TEMP=A(121):LL=A(122): 
TR=A(123) : TRPM=A(124) :OMEGAT=A (125) : TCDO=A(126) : BT=A(127): 
TAR=A (128) : TRC=A (129) : TTR=A(130) : CTTR=A(131) : TRB=A(132) :SI 
GMAT=A (133) :V=A(134) 

1690 SPAN=A(135) :S=A(136) :SWP=A(137) : SWEEP=A(138) : LAVS-A 
(139) : VSAR=A(140) : BETA2=A(141) : T=A(142) :T2=A(143) :T3=A(144 
) :CLATR=A (145) : ALTR=A(146) : ALTRDEG=A (147) :TL=A(148) : BLTW=A 
(149) :CM=A(150) : THT=A(151) : AM=A(152) : AMAX=A(153) : PINIGE-A( 
154) :PTTI=A(155) 

1700 RSHP=A(156) :STYPE=A(157) : ICESHD=A(158) :STRTIN=A(159): 
INLET=A (160) : BARR=A(161) : PARTSEP=A (162) : EAPS=A(163) :HDIF=A 
(164) : INRED=A(165) : EEDS=A(166) :RSHP1=A(167) :RSHP2=A(168):R 
SHP3=A (169) : RSHP1A=A(170) :RSHP2A=A(171) :RSHP3A=A(172) :ESHP 
=A (173) : LOSS=A (174) 
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1710 ENG=A(175):EN=A(176) :TRPWR=A(177) :TRWT=A(178) :NGW=A 
(179) :NPT=A(180) :NDL=A(181) :NFM=A(182) :NPERINDP=A(183) :NPE 
RDIFP=A (184) :NPERDIFW=A(185):FOR I=1 TO 

3:SFC(I)=A(185+1I) :SHP(I)=A(188+1) :WDOTF(I)=A(191+I) :NEXT 
I: BETAH=A (195) : ALPHAH(1)=A(196) 

1720 ALPHAH(2)=A(197) : PHANTOM(1)=A(198) : PHANTOM(2)=A(199) : 
MRV=A (200) : RSHPREQ=A (201) : FFR=A(202) :MEV=A(203) : ERSHPR=A(2 
04) : EFFR=A (205) : CRUPWR(1)=A(206) : CRUPWR(2)=A(207) :CRUFFR(1 
)=A (208) : CRUFFR(2)=A(209) : TFUEL=A(210) : TIME=A(211) :NGW2=A( 
212) :PTF1=A(213) 

1730 PDGW2=A(214) :DIF=A(215) :NGW3=A(216) :MCV=A(217) : VVERT= 
A(218) :MHA=A(219) :SC=A(220) : BW=A(221) : BH=A(222) :FL=A(223): 
VEFPA=A (224) :MCSHP=A (225) : T2FUEL=A (226) :LS4=A(227) G=228 
1740 LL-LL*1:FOR I-1 TO LL:O(I)-A(G):G-G-1:NEXT I:G=G+1+ 
LL: G1=G+1+2*LL: G2=G1+1+2*LL 

1750 G3=G2+1+2*LL:G4=G3+1+2*LL: FOR I=1 TO 2:FOR J=1 TO LL: 
PINF(I,J7)=A(G) :POF(I,J)=A(G1):PPF(I,J7)=A(G2) :PTF(I,J7)=A(G3 
):TM(I,J7)=A(G4) :G=G+1:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT 
ST 

1760 G52G442:G62G542:G72G642:FOR I-1 TO 2:PITR(I)-A(G4): 
POTR(I)=A(G5) : PTTR(I) =A(G6) : CLTR(I)=A(G7) :G4=G4+1:G5=G5+1: 
G6=G6+1:G7=G7+1:NEXT I:G8=G7+1+2* (LL-1) :G9=G8+1+2* (LL-1) 
1770 FOR I=1 TO 2:FOR J=2 TO LL: PITRF(I,J)=A(G7) :POTRF 
(I,J) =A(G8) :PTTRF(I,J)=A(G9) :G7=G7+1:G8=G8+1:G9=G9+1:NEXT 
J,1I:G10=G9+1+2*LL:G11=G10+14+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

1780 FOR I-1 TO 2:FOR J-1 TO LL:TTM(I,J)-A(G9):TRT(I,J) 
-A(G10):L(I,J)2A(G11):VERSTAB(I,J)-A(G12):PTTRVSF(I,J)-A(G 
13):PITRFI(I,J)-A(G14):G92G941:G1026G1041:G112G11-41:6G12-26G12 
+1:G13=G13+1:G14=G14+1:NEXT J,I 

1790 G15=G14+1:G16=G15+1+2*LL:G17=G16+1+2*LL:G18=G17+1+2* 
LL:G19=G18+1+2* LL: G20=G19+1+2*LL: G21=G20+1+2* LL 

1800 FOR I-1 TO 2:FOR J-1 TO LL:AL90(I,J)-A(G15):AL270 
(I,J)sA(G16):M90(I,J)-A(G17):MCRIT(I,J)-A(G18):PS(I,J)-A(G 
19) :PM(I,J7)=A(G20) :PTT(1I,J)=A(G21) :G15=G15+1:G16=G16+1:G17 
=G17+1:G18=G18+1:G19=G19+1:G20=G20+1:G21=G21+1:NEXT J,I 
1810 G22=G214+1:G23=G22+1+ENG:G24=G23+1+ENG:G25=G24+1+ENG: 
G26=G25+1+ENG : G27=G26+1+ENG: G28=G27+1+ENG:G29=G28+1+ENG:G3 
0=G29+1+ENG : G3 1=G3 0+1+ENG:G32=G31+1+ENG:G33=G32+1+ENG:G34= 
G33+1+ENG :G35=G34+1+ENG : G36=G35+1+ENG:G37=G36+1+ENG:G38=G3 
7+1+ENG 

1820 G39=G38+1+ENG:G40=G39+1+ENG:G41=G40+1+ENG 

1830 FOR I=l1 TO ENG: DW(I)=A(G22) :SHP(I)=A(G23) :SFC(I)= 
A(G24) :IC(I)=A(G25) :OC(I)=A(G26) : PHA(I) -A(G27) : MTBMA(I)-A( 
G28) :MDT(I)=A(G29) :MTBF(I)=A(G30) :MTBR(I) =A(G31) :RC(I)=A(G 
32) :SV(I)=A(G33) :AVAIL(I)=A(G34) : RELY (I) -A(G35) : MAINT(I)-A 
(G36) 

1840 LC(I)-A(637):EWT(I)-A(G38) :YO(I)-A(G39) : YM( I) -A(G40) : 
NRPL(I)=A(G41) :G22=G22+1:G23=G23+1:G24=G24+1:G625=G25+1:G26 
=G26+1:G627=G27+1:G28=G28+1:G29=G29+1:G630=G30+1:G631=G31+1:G 
32=G3 2+1:G633=G33+1:G634=G34+1:G35=G35+1:G36=G36+1 
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1850 G37=G37+1:G38=G38+1:G39=G39+1:G40=G40+1:G41=G41+1; 
NEXT I:CLOSE $1:LL-LL-1:RETURN 700 

1860 CLS:LOCATE 10,25,1:INPUT “ARE YOU SURE SYOUSWAl ie 
QUIT (Y/N)";AS:IF AS="y" THEN GOTO 1880 ELSE IF A$="y" 
GOTO 1880 ELSE IF AS="n" GOTO 700 ELSE IF AS="N" GOTO 700 
ELSE 

1870 LOCATE 24,25,1:INPUT “you must enters Ιστ; 
again" ;AS:IF A$="y" THEN GOTO 1880 ELSE IF AS$="Y" GOTO 
1880 ELSE IF AS="n" GOTO 700 ELSE IF AS$="N" GOTO 700 ELSE 
GOTO 1870 

1880 CLS: LOCATE 10,30,1:PRINT "PROGRAM TERMINATES": LOCAQE 
12,20,1:PRINT 'MACHINE WILL SELF DESTRUG U ή 
SECONDS":LOCATE 14,34,1:PRINT "GOOD LUCK": LOCATE 
16,34,0:PRINT "MR. PHELPS": FOR I=1 TO 9500:NEXT ΤΟ ΙΣΤ: 
1890 '! ; 


1900 ' 
T910 ! FLASH-UP WINDOWS (used in this program) 
1920! (c) COPYRIGHT THE SOFTWARE BOTTLING COMPANY 


66 


C. CHAPTER ONE 


10O 'kkškxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


CHAPTER ONE 


PROGRAM OPERATION 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


OY 
© 


100 CLS:PRINT "~C=ALL/":PRINT "~L=CH1/" 

110 COLOR 1,1,1:CLS:PRINT "~W=WIN1/":INPUT;"",X:ON X GOTO 
HN: 120,130 

120 CLS:PRINT '"-C-ALL/":PRINT "-W-WIN4/":INPUT;"",X1:0N X1 
BOTO 120,120,130 

130 CLS:PRINT "~C=ALL/":PRINT "-W-WIN2/":INPUT;"",X2:0N X2 
GOTO 140,140,150 

140 CLS:PRINT "-C-ALL/":PRINT "~W=WIN6/":INPUT;"",X3:ON X3 
GOTO 140,140,150 

150 CLS:PRINT "-C-ALL/":PRINT "-W-WIN3/":INPUT;"",X4:0N X4 
GOTO 160,160,170 | 

160 CLS:PRINT "-C-ALL/":PRINT "-WeWINS/":INPUT;"",X4:0N X4 
GOTO 160,160,170 

170 PRINT "~W=LOADNOTE/":CHAIN "HD1", , ALL 
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D. CHAPTER TWO 


10 KEY(5) OFF | 
20 Ve e e e de e de e e de e de de che ode de de e de e de de de e de de de de e de e de e de e de de de de de de e de e de de de de de de ke e kx kx 


Sor 


40 ' MAIN ROTOR DESIGN 

Se 

60 'kkkkkrkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkai 
no. 

Sion 

ICM *** CHAPTER TWO MAIN PROGRAM  *** 


ero) 

110 CLS:PRINT "~C=ALL/":PRINT "~L=HELO/" 
120 KEY(9) ON 

130 ON KEY(9) GOSUB 140 

140 GOTO 160 


1530 RETURN 
160 COLOR 1,1,1:°CLS: LOCATE 23/1/0 EP ü DR 
"=W=CHP2Z/" TN pu t x 


170 IF X=0 THEN PRINT "~W=NOENTRY/":LOCATE 23,1,0:PRINT " 
":GOSUB 2280:GOTO 220 ELSE 

180 COLOR 15,1,1:IF X-1 THEN GOSUB 1260 ELSE IF X-2 THEN 
GOSUB 1340 ELSE IF X=3 THEN GOSUB 1410 ELSE IF X=4 THEN 
GOSUB 1480 ELSE IF X=5 THEN GOSUB 1580 ELSE IF X=6 THEN 
GOSUB 1640 ELSE 

190 IF X=7 THEN GOSUB 1710 ELSE IF X=8 THEN GOSUB 1840 
ELSE IF X=9 THEN GOSUB 1920 ELSE IF X=10 THEN GOSUB 2030 
ELSE IF X=12 THEN GOSUB 2110 ELSE IF X=13 GOTO 550 ELSE IF 
X=15 GOTO 280 ELSE 

200 IF X=16 THEN GOSUB 560 ELSE IF X=17 THEN GOSUB 820 
ELSE IF X-18 THEN GOSUB 1090 ELSE IF X=19 THEN CLS: PRINT 
"~W=LOADNOTE/":CHAIN "HD1",,ALL ELSE 


210 ' 
220 CLS:LOCATE 25,27,0:PRINT " 
":LOCATE 23,1,0:PRINT " ":GOTO 120 


230 LOCATE 25,20,1:PRINT "you must input a number from 1- 
18 try again":GOTO 180 

240 ' 

ου. **** DATA ENTRY **** 

Zou 

2700 

280 CLS:LOCATE 1,30,1:PRINT "CHAPTER TWO DATA ENTRY" 

290 LOCATE 3,5,1: PRINT THIS SPECIFICATION GROSS WEIGHT" 
300 PRINT TAB(5) " 2. ROUGH ESTIMATE GROSS WEIGHT" 

310 PRINT TAB(5) " 3. ESTIMATE OF MANUFACTURER'S EMPTY 
WEIGHT" 

320 PRINT TAB(5) " 
330 PRINT TAB(5) " 
340 PRINT TAB(5) " 
350 PRINT TAB(5) " 
360 PRINT TAB(5) " 


MAXIMUM TIP VELOCITY" 
. ROTOR RADIUS" 
ROTATIONAL VELOCITY" 
THRUST COEEFEEICIEI PZ 

< BLADE SOLIDITY" 


Onn MN > 
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370 PRINT TAB(5) " 9. NUMBER OF MAIN ROTOR BLADES" 

380 PRINT TAB(5) "10. BLADE CHORD" 

390 PRINT TAB(5) "11. BLADE ASPECT RATIO" 

400 PRINT TAB(5) "12. AVERAGE LIFT COEFFICIENT" 

410 PRINT TAB(5) "13. BLADE LIFT CURVE SLOPE" 

420 PRINT TAB(5) "14. BLADE DRAG COEFFICIENT" 

430 PRINT TAB(5) "15. DISC LOADING" 

440 PRINT TAB(5) "16. MAXIMUM ADVANCE RATIO" 

450 PRINT TAB(5) "17. MAXIMUM BLADE LOADING" 

460 PRINT TAB(5) "18. MAXIMUM FORWARD VELOCITY" 

470 PRINT TAB(5) "19. RETURN TO CHAPTER TWO MENU" 

480 LOCATE 23,26,1:INPUT "WHICH DO YOU WANT TO ENTER";X:IF 
X=1 THEN LOCATE 3,55,1:INPUT SGW: LOCATE 23,54,1:PRINT " 
":GOTO 480 ELSE IF X=2 THEN LOCATE 4,55,1:INPUT GW1:LOCATE 


23,54,1:PRINT " ":GOTO 480 ELSE- 

490 IF X=3 THEN LOCATE 5,55,1:INPUT WE: LOCATE 
23,54,1:PRINT " ":GOTO 480 ELSE IF X-4 THEN LOCATE 
6,55,1:1NPUT VTIPMAX:LOCATE 23,54,1:PRINT " ":GOTO 480 
ELSE IF X25 THEN LOCATE 7,55,1:1NPUT R:LOCATE 
23,54,1:PRINT " ":GOTO 480 ELSE 

500 IF X26 THEN LOCATE 8,55,1:INPUT OMEGA:LOCATE 
23,54,1:PRINT " ":GOTO 480 ELSE ΤΕ ΧΞ7 THEN LOCATE 
9,55,1:01NPUT CT:LOCATE 23,54,1:PRINT " ":GOTO 480 ELSE IF 


X-8 THEN LOCATE 10,55,1:1NPUT SIGMA:LOCATE 23,54,1:PRINT " 
":GOTO 480 ELSE 

510 IF X=9 THEN LOCATE 11,55,1:INPUT B:LOCATE 
23,54,1:PRINT " ":GOTO 480 ELSE IF X-10 THEN LOCATE 
12,55,1:1NPUT C:LOCATE 23,54,1:PRINT "  ":GOTO 480 ELSE IF 
X-11 THEN LOCATE 13,55,1:INPUT AR:LOCATE 23,54,1:PRINT ' 
":GOTO 480 ELSE 

520 IF X-12 THEN LOCATE 14,55,1:1INPUT CL:LOCATE 
23,54,1:PRINT " ":GOTO 480 ELSE IF X=13 THEN LOCATE 
15,55,1:INPUT CLALPHA: LOCATE 23,54,1:PRINT " ":GOTO 480 
ELSE 

530 IF X-14 THEN LOCATE 16,55,1:1NPUT CDO:LOCATE 
23,54,1:PRINT " ":GOTO 480 ELSE IF X=15 THEN LOCATE 
17,55,1:INPUT DL: LOCATE 23,54,1:PRINT " ":GOTO 480 ELSE 
IF X=16 THEN LOCATE 18,55,1:INPUT MU: LOCATE 23,54,1:PRINT 
" :GOTO 480 ELSE 

540 IF X-17 THEN LOCATE 19,55,1:1NPUT MBL:PRINT "  ":GOTO 
480 ELSE IF X=18 THEN LOCATE 20,55,1:INPUT MAXFVEL: PRINT " 
":GOTO 480 ELSE IF X=19 GOTO 110 

550 GOSUB 1260:GOSUB 1340:GOSUB 1410:GOSUB 1480:GOSUB 
1840:GOSUB 1920:GOSUB 2110:GOTO 110 

560 ! k****** PRINT DATA ON SCREEN  ******* 

570 ! 

. 580 ! 

590 CLS:LOCATE 2,25,1:PRINT "TABLE OF CHAPTER TWO RESULTS" 
600 LOCATE 5,5,1:PRINT "SPECIFICATION GROSS 
WEIGHT";TAB(50) SGW 

610 PRINT TAB(5) "ROUGH ESTIMATE GROSS WEIGHT";TAB(50) GW1 
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620 PRINT TAB(5) 
WEIGHT";TAB(50) WE 


630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
ERINE 
ΓΕ; 
PRINT 
PRINT 
PRINI 
PRINT 


MAXFVEL 


780 
790 
800 
8 10 
820 
830 
840 
850 


860 LPRINT TAB(25) 


GOSUB 
RETURN 


"ESTIMATE OF MANUFACTURER'S EMPTY 


TAB(5) "MAXIMUM TIP VELOCITY";TAB(50) VTIPMAX 
TAB(5) "ROTOR RADIUS";TAB(50) R 
TAB(5) "ROTATIONAL VELOCITY";TAB(50) OMEGA 
TAB(5) "THRUST COEFFICIENT";TAB(50) CT 
TAB(5) "BLADE SOLIDITY";TAB(50) SIGMA 
TAB(5) "NUMBER OF MAIN ROTOR BLADES";TAB(50) B 
TAB(5) "BLADE CHORD";TAB(50) C 
TAB(5) "BLADE ASPECT RATIO";TAB(50) AR 
TAB(5) "AVERAGE LIFT COEFFICIENT";TAB(50) CL 
TAB(5) "BLADE LIFT CURVE SLOPE";TAB(50) CLALPHA 
TAB(5) “BLADE DRAG COEFFICIENT";TAB(50) CDO 
TAB(5) "DISC LOADING";TAB(50) DL 
TAB(5) "MAXIMUM ADVANCE RATIO";TAB(50) MU 
TAB(5) "MAXIMUM BLADE LOADING";TAB(50) MBL 
TAB(5) "MAXIMUM FORWARD VELOCITY";TAB(50) 
2280 

110 

kkkkkkkk PRINT OUT DATA ἈΧΧΧΧΧ ΧΧΧ 


CLS:LOCATE 23,1,0:PRINT '-W-PRINTERAT GOSUE 
2280: LOCATE 25/277 0C PRINTE: " 


"TABLE OF ΕΠΡΕΠΕ GS 


RESULTS":I$=CHRŠ(9) 


870 
880 
890 
900 
SGW 
910 
GW1 
920 


930 
940 
950 
960 
97.0 
980 
290 


LPRINT 
LPRINT 
DPR ENE 


LPRINT TAB(12) 
LPRINT TAB(12) 


LPRINT TAB(12) 


CLALPHA 


"SPECIFICATION GROSS WEIGHT" ;TAB(57) 
"ROUGH ESTIMATE GROSS WEIGHT" ;TAB(57) 


"ESTIMATE OF MANUFACTURER'S EMPTY 


B 


WEIGHT" ;TAB(57) WE 
LPRINT TAB(12) "MAXIMUM TIP VELOCITY";TAB(57) VTIPMAX 
LPRINT TAB(12) "ROTOR RADIUS";TAB(57) R 
LPRINT TAB(12) "ROTATIONAL VELOCITY";TAB(57) OMEGA 
LPRINT TAB(12) "THRUST COEFFICIENT" ;TAB(57) CT 
LPRINT TAB(12) "BLADE SOLIDITY";TAB(57) SIGMA 
LPRINT TAB(12) "NUMBER OF MAIN ROTOR BLADES";TAB(57) 
LPRINT TAB(12) "BLADE CHORD";TAB(57) C 
1000 LPRINT TAB(12) "BLADE ASPECT RATIO";TAB(57) AR 
1010 LPRINT TAB(12) "AVERAGE LIFT COEFFICIENT" ;TAB(57) CL 
1020 LPRINT TAB(12) "BLADE LIFT CURVE SLOPE";TAB(57) 
1030 LPRINT TAB(12) "BLADE DRAG COEFFICIENT" ;TAB(57) CDO 
1040 LPRINT TAB(12) "DISC LOADING";TAB(57) DL 


70 


1050 LPRINT TAB(12) "MAXIMUM ADVANCE RATIO";TAB(57) MU 
1060 LPRINT TAB(12) "MAXIMUM BLADE LOADING";TAB(57) MBL 
1070 LPRINT TAB(12) "MAXIMUM FORWARD VELOCITY";TAB(57) 
MAXFVEL 

EOSO LPRINT CHRS (12):RETURN 110 

1090 ' 

1100 ' 

EO ' *** STORE DATA ON FILE DISK ***x 

ME2O ' 

11430 ! 

1140 A(1)=SGW:A(2)=GW1:A(3) =WE:A(4)=VTIPMAX:A(5)=R:A(6)= 
OMEGA:A(7)=CT:A(8)=SIGMA:A(9)=B:A(10)=C:A(11)=AR:A(12)=CL: 
A(13)-CLALPHA:A(14)-CDO:A(15)-DL:A(16)-MBL:A(17)-MU:A(18)— 
MAXFVEL 

MESO CLS:LOCATE 23,1,0:PRINT '-W-DISK/W':GOSUB 2280:LOCATE 
5 27,1:PRINT " "*LOCATE 
23,1,0: PRINT "-W-ZSAVE/":2-22:0PEN "B:DATA1" FOR OUTPUT AS 
TI:PRINT #1, Z:FOR I=1 TO 10:PRINT #1, LL(I):NEXT I 

MO CLOSE #1 

1170 OPEN "B:DATA2" FOR OUTPUT AS #1:FOR I=1 TO 18:PRINT 
EBBESA(I):NEXT I:CLOSE fl 

1180 RETURN 120 
1190 ' 

E200 ' 
E2IO ' 
E220 ' 
1530 ! 
1240 ' 
το ! 

1260 CLS:LOCATE 5,30,1:PRINT Nj**w* ΘΕΟΤΤΊΙΟΝ 2.1 ΧΧΆΜΞΓΣΟΟΑΔΤΕ 
7,27,0: PRINT "-ESTIMATE OF GROSS WEIGHT-":LOCATE 
10,21,1:INPUT "ENTER SPECIFICATION GROSS WEIGHT";SGW 

1270 GW1l = .8 * SGW:LOCATE 12,21,1:PRINT "ROUGH ESTIMATE 
GROSS WEIGHT IS z";GW1 

moO LOCATE 23,22,1: INPUT "do you want to make any 
Enges? (y/n)";CS:IF C$2"y" THEN GOTO 1260 ELSE IF C$s"Y" 
GOTO 1260 ELSE IF CS$="n" GOTO 1300 ELSE IF CS$="N" GOTO 
O00 ELSE 

1290 LOCATE 24,25,1:PRINT "you must enter (y/n) try 
again":GOTO 1280 

1300 IF X=13 THEN RETURN ELSE RETURN 120 

“ο 

T320 ! * * * * * * * * SECTION 2.2 kkkkkkk 

ο 

EEOCCDSTtDBOCATE 5,30,1:PRINT "*** SECTION 2.2 ***"3PRINT " 
"SPRINT TAB(20) "-ESTIMATE OF MANUFACTURER'S EMPTY WEIGHT- 
n 

memo, LOCATE 10,5,1:INPUT "USING FIGURE 2-1 ENTER THE 
MANUFACTURER'S EMPTY WEIGHT ESTIMATE";WE 

ESGOCLOCATE 12,5,1:PRINT "MANUFACTURER'S EMPTY WEIGHT 
ESTIMATE =";WE 


*** CHAPTER TWO SUBROUTINES Xxx 


kkkkkkkk SECTION 2.1 **x**x*** 
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1370 LOCATE 23,22,1: INPUT "do you want čto make any επ. 
(y/n)";CS:IF C$2"y" THEN GOTO 1340 ELSE IPSGS CONUM UET 
1340 ELSE IF C$="n" GOTO 1390 ELSE IF C$="N" GOTO 1390 
ELSE 

1380 LOCATE 24,25,1:PRINT "you must enter (y MEET 
again":GOTO 1370 

1390 IF X=13 THEN RETURN ELSEVRE TOR ie 


1400 ' 

2309 kkkkkkkk SECTION 2.3  k*kk*kkk*kk 
1420 MA 

1430 VTIPMAX = .65 * A 


1440 CLS: LOCATE 5,30,1:PRINT "*** SECTION 2.3 Ἀπχκ του. 
7,22,0: PRINT "-CALCULATE THE MAXIMUM TIP VELOCITY=-" po 
9,25,0:PRINT "MAXIMUM TIP VELOCITY = ";VTIPMAX 

1450 GOSUB 2280 

1460 IF X=13 THEN RETURN ELSE RETURN 120 

1470 ' 

142909 **x****k* SECTION 2.4  ***k***x 

1490 ^! 

1500 CLS:LOCATE 5,30,1:PRINT "*** SECTION 2.4 ***" Πο AR 
7,28,0:PRINT "=DETERMINE ROTOR RAT TH 

1510 LOCATE 10,5,1:INPUT "USING FIGUBRER2 AME an 
DETERMINE A VALUE OF DISK LOADING AND ENTER";DL 

1520 R - SQR(SGW/ (DL*PI)) 

1530 LOCATE 12,30,1:PRENT "ROTORSEZPSUSEOUL 

1540 LOCATE 23,22,1:INPUT "do you want to make any changes 
(y/n)";CS:IF CS="Y" THEN GOTO 1480 ELSE IF C$="y" GOTO 
1480 ELSE IF CS="n" GOTO 1560 ELSE IF CŞ="N" GOTO 1560 
ELSE 

1550 LOCATE 24,25,1:PRINT "you must enter v DM 
again":GOTO 1540 

1560 IF X=13 THEN GOTO 1570 ELSE RETURN 120 

15708 

1580 ' kkkkkkkk SECTION 2.5  *k*kk*kkk 

1590 1! 

1600 OMEGA = VTIPMAX / R 

1610 CLS:LOCATE 2,30,1:PRINT "*** SECTION 2.59***' OCHS 
4,20,0: PRINT "-DETERMINE FIRST-CUT ROTATIONACIVETOCHI E 


": LOCATE 6,35,0:PRINT "OMEGA ='';OMEGA 

1620 ' 

1630 '' 

1640 ' kkkkkkkk SECTION 2.6  *kkk*kkxk 
165077 


1660 CT = SGW / (PI*(R^2)*RHO* ((OMEGA*R)^2)) 

1670 LOCATE 14,30,1:PRINT "'*** SECTION 2.6 XKE EOCENE 
16,16,0:PRINT "-FIRST CUT DETERMINATION OF THROSTE 
COEFFICIENT="3;LOCATE 18,30,0:PRINT'NTHRUST  COEEET THI 
="; CT 

1680 GOSUB 2280:IF X=13 THEN GOTO 1690 ELSE RETURN 120 
1690 |! 

1700 7! 
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1710 ' * * < < < < < < SECTION 2.7 * * k < * * 
E720. ' 
IMPONELS LOCATET5730, PRINTS" *** SECTION 2.7 ***": LOCATE. 
fee? , 0: PRINT “-DETERMINE BLADE SOLIDITY-" 
1740 LOCATE 10,24,1: INPUT "ENTER MAXIMUM FORWARD 
DESDOCITY";MAXFVEL 
1750 MU = MAXFVEL*1.687778 / (OMEGA*R) 
1760 LOCATE 12,24,1:PRINT "MAXIMUM ADVANCE RATIO =";MU 
1770 LOCATE 14,13,1: INPUT "DETERMINE MAXIMUM BLADE LOADING 
FROM FIGURE 2-3 AND ENTER" ;MBL 
1780 SIGMA = CT / MBL 
1790 LOCATE 16,24,1:PRINT "BLADE SOLIDITY =";SIGMA 
1800 LOCATE 23,22,1:INPUT "do you want to make any changes 
(y/n)";CS:IF CcS="y" THEN GOTO 1710 ELSE IF C$="Y" GOTO 
1710 ELSE LF CS="n" GOTO 1820 ELSE IF CS="N" GOTO 1820 
ELSE 
1810 LOCATE 24,25,1:INPUT "you must enter (y/n) try 
again":GOTO 1800 
1820 IF X=13 THEN RETURN ELSE RETURN 120 

! 


1830 

1840 |! ***k*kk**** SECTION 2.8. ****kkx 

1850 ' | 

ΝΠ ΤΟΕΔΤΕ 5,30,1:PRINT "*** SECTION 2.8 ***":PRINT " 
MAERENT TAB(23) 'Wll-DETERMINE NUMBER OF ROTOR BLADES-'' 
υιού "ENTER YOUR SELECTION FOR NUMBER 
M ER ROTOR BLADES"; B:PRINT " ":PRINT" ":PRINT TAB(15) 
"NUMBER OF ROTOR BLADES =";B 


1880 LOCATE 23,22,1:INPUT "do you want to make any changes 
een)! ;CS:1F CS="y" THEN GOTO 1840 ELSE IF cs="y" GoTo 
1840 ELSE IF CS="'n" GOTO 1900 ELSE IF CS$=""N" GOTO 1900 
ELSE 

1890 LOCATE 24,25,1:INPUT "you must enter (y/n) try 
again":GOTO 1880 

OORTE X=13 THEN RETURN ELSE RETURN 120 

mono ' 

1920 | * * * ΧΧΧ ΧΧΧ SECTION 2.9 ΧΑΧΧΧΧΧΧ 

MOSQ ' 

1940 C = (SIGMA*PI*R) / B 

1950 AR = R / C 

EXUDOCDS:LOCATE 5,30,1:PRINT "*** SECTION 2.9 ***'":LOCATE 
EOLO:PRINT "-DETERMINE THE CHORD AND ASPECT RATIO- 


ο ΙΟ ΤΕ 9,25,0:PRINT "ROTATIONAL VELOCITY 
=";OMEGA: LOCATE 11,25,0:PRINT "CHORD =";C: LOCATE 
mre ,0:PRINT "ASPECT RATIO z";AR 


ο Ὁ LOCATE 16,15,1: INPUT "DO YOU WANT TO CHANGE THE 
Penal LONAL VELOCITY (V/N)';BS:IF BS="y" THEN GOSUB 2380 
ELSE IF BS="Y" THEN GOSUB 2380 ELSE IF BS="n" GOTO 1990 
ELSE IF BS="N" GOTO 1990 ELSE 

T980 LOCATE 24,25,1:INPUT "you must enter (y/n) try 
again":GOTO 1970 

1990 IF X=13 THEN GOTO 2000 ELSE RETURN 120 
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2000 
2010 
2020 
2030 
2040 
2050 


" ":PRINT TAB(27) 


2060 
2070 
2080 
2090 
2100 
21]0 
2120 
2130 


" ":PRINT TAB(20) 


2140 


******** SECTION 2.10  **x*x***x 


CLS:LOCATE 5,30,1:PRINT "*** SECIION 2 10 x * PPM 
I-AVERAGE LIFTSCOEFFICIENEGA 


CL = (CT*6) / SIGMA 

LOCATE 10,25,1:PRINT "AVERAGE LIFT COEFFICIENT -";CL 
GOSUB 2280 

IF X=13 THEN RETURN ELSE RETURN 120 


! κ * * * * * * * 
' 


ος ΠΟ ΡΕ ο ο Po PET 


SECTION 2.12 %*****%*%* 


"*** SECTION 2.12 ***w" Pphilm 
"-LIFT CURVE SLOPE AND DRAG COEFFICIBUMG 


LOCATE 10,16,1:INPUT "ENTER LIFT CURVE SLOPE ','.... 


ANGLE OF ATTACK" ;CLALPHA 


2150 


LOCATE 12,16,1:INPUT "ENTER DRAG COEFFICIENT ATE TES 


ANGLE OF ATTACK";CDO 


2169 


LOCATE 1l14,16,1:PRINT "LIFT ΟΕΕ EE 


=" ; CLALPHA: LOCATE 16,16,1:PRINT "DRAG COEFFICIENT ="; CDO 
2170 LOCATE 23,22,1:INPUT "do you want to amke any changes 
(v/n)'ies:iF C$="y" THEN GOTO 2110 ΗΕ ΕΕ τ’ ΕΞ. αμ. 


2110 
ELSE 
2180 


ELSE IF C$="n" GOTO 2190 ELSE IF Cs="N" GOTO 2126 


LOCATE 24,25,1:INPUT “you must enter (7m ca 


again":GOTO 2170 


2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 


RETURN 120 

' 

' 

| *** SECTION SUBROUTINES  *** 

' 

' 

| *** PAUSE SUBROUTINE  *** 

' 

' 

IF AP-1 THEN LOCATE 25,79,0 ELSE LOCATE 25,27,0:PRINT 


"press any key to continue" 


2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 


AŞ=INKEY$:IF A$="" THEN 2290 

RETURN i 

LOCATE Ἢ 

AS=INKEYS:IF AS="" THEN 2310 

RETURN 

*** SECTION 2.9 SUBROUTINE  *** 


CLS: LOCATE 10,25,1: INPUT "ENTER NEW ROTATIO L - 


VELOCITY";OMEGA 


74 


2390 CT=GW1/ (PI* (R*2) *RHO* ((OMEGA*R) *2) ) :MU=MAXFVEL* 


1.687778 /(OMEGA*R) 

2400 LOCATE 12,25,1:PRINT 
2410 LOCATE 14,10,1:INPUT 
MAXIMUM BLADE LOADING AND 
2420 LOCATE 16,25,1: PRINT 
-"ISIGMA:C-(SIGMA*PI*R)/B 
2430 AR-R/C 

2440 LOCATE 18,25,1:PRINT 
"ASPECT RATIO z";AR 

2450 LOCATE 22,13,1:INPUT 
rotational velocity again 


"MAXIMUM ADVANCE RATIO z";MU 
UDUOBORTIGURES2-3 TO DETERMINE THE 
ENTER" ; MBL: SIGMA-CT/MBL 

"BLADE SOLIDITY 


"CHORDAS GI BOCATES20/,25,1:PRINT 


"do you want to change the 
(Y/n)";F$ 


geo IF FS="y" THEN GOTO 2380 ELSE IF F$-"Y" GOTO 2380 
ELSE IF FS="n" GOTO 2480 ELSE IF FS$="N" GOTO 2480 ELSE 


2470 LOCATE 24,25,1: INPUT 
again";F$:GOTO 2450 

2480 RETURN 1960 

2490 ' 

2500 ' 


"you must enter (y/n) try 


75 


E. CHAPTER THREE 


10 KEY(5) OFF 

20 GOTO 350 
; *** PAUSE SUBROUTINE  *** 

40 ' 

50 f 

60 IF AP=1 THEN LOCATE 25,79,0 ELSE LOCATE 25/2/7007 F En A 

"bress any key to continue" 

70 AS=INKEYS:IF AS="" THEN 70 

80 RETURN 

90 ! 

του ' *** SECTION 2.9 SUBROUTINE xxx 

ΤΟ 

T207 i 

130 FOR I=4 TO 23:LOCATE I,41,1:PRINT " 

"SNEXT I:LOCATE 10,42,1:INPUT "ENTER NEW ROTA TIONIS 

VELOCITY" ; OMEGA 

140 CT=GW1/ (PI*(R*2) *RHO* ( (OMEGA*R) *2) ) :MU=MAXFVEL/ 

(OMEGA*R) 

150 LOCATE 12,42,1:PRINT "MAXIMUM ADVANCE RATIO z";MU 

160 LOCATE 14,42,1:PRINT "YOUR MAXIMUM BLADE LOADING 

=""s;MBL: SIGMA=CT/MBL: CL=(CT*6) /SIGMA 


170 LOCATE 16,42,1:PRINT "BLADE SOLIDITY =";SIGMA 

180 AR=R/C 

190 LOCATE 18,42,1:PRINT "CHORD =";C:LOCATE 20,42,1:PRINT 
"ASPECT RATIO =";AR 


200 LOCATE 22,42,1:INPUT "change again (y/n)";F%$:GOTO 210 
210 IF FS="y" THEN GOTO 130 ELSE IF FS="Y" GOTO Το 
IF FS="n" GOTO 230 ELSE IF FS="N" GOTO 230 ELSE 

220 LOCATE 23,42,1:INPUT "you must enter (y/n) try 
again";F$:GOTO 210 

230 RETURN 

240 ' 

250 CT=GW(N) / (PI* (R*2) *RHO* ( (OMEGA*R) *2) ) :MU=MAXFVEL/ 
(OMEGAXR) : SIGMA=(B*C) / (PI*R) :GOSUB 

260: CL=(CT*6) /SIGMA: RETURN 

260 ' 

270 AR = R/C 

280 FOR I=3 TO 23:LOCATE I1,41 1: PRINDE: 

":NEXT I:LOCATE 4,47,1:PRINT "xxx FROM SECTION? 9 

***": LOCATE 7,42,1:PRINT "ROTATIONAL VELOCITY 

=" >OMEGA: LOCATE 9,42,1:PRINT "CHORD =";C 

290 LOCATE 11,42,1: PRINT "ASPECT RATIO ="; AR: LOCATE 
13,42,1:PRINT "ROTOR RADIUS";R 

300 LOCATE 23,48,1:INPUT "any changes (y/n)";¢s:1lF ΕΞ Απ 
THEN GOTO 320 ELSE IF C$="Y" GOTO 320 ELSE IF Co=wmn"gi rss 
RETURN ELSE IF CŞ$Ş="N" THEN RETURN ELSE 

310 LOCATE 23,42,1:INPUT "you must enter (y/n) try 
again";CS:IF c$="y" THEN GOTO 260 ELSE IF ο νυν ΟΠ, 
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ELSE IF C$="n" THEN RETURN ELSE IF CS="N" THEN RETURN ELSE 
GOTO 310 

320 IF W=1 THEN GOTO 1860 ELSE IF W=2 GOTO 1870 ELSE IF 
W=3 GOTO 1880 

ESO ' 

340 ' 

350 '**žkkkkkkkkkkkkkkkkkk CHAPTER THREE xke 
260 ' 
BE ! *** PRELIMINARY POWER CALCULATIONS *** 
280 '! 
590 ! 
400 ' 
410 | 
420 ' 

430 ERASE A:DIM A(500):CLS:PRINT "~C=ALL/": PRINT "~L=CH3/" 
440 KEY(9) ON:ON KEY(9) GOSUB 450 

Semen —O> COLOR 1,1,1:CLS: LOCATE 23,1,0:PRINT 
ISU-COMAIN/":INPUT;"" x 

460 COLOR 15,1,1:1F X-1 THEN GOSUB 1060 ELSE IF X-2 THEN 
GOSUB 1220 ELSE IF X-3 THEN GOSUB 1540 ELSE IF X-4 THEN 
GOSUB 1730 ELSE IF X-5 THEN GOSUB 2080 ELSE IF X-6 THEN 
"GOSUB 2130 ELSE IF X=7 THEN GOSUB 2270 ELSE IF X=8 THEN 
GOSUB 2330 ELSE 

470 IF X=9 THEN GOSUB 2540 ELSE IF X=10 THEN GOSUB 2620 
ELSE IF X-11 THEN GOSUB 2770 ELSE IF X=12 THEN GOTO 1090 
ELSE IF X=13 THEN GOSUB 4370 ELSE IF X=14 THEN GOSUB 4060 
ELSE IF X=15 THEN GOSUB 660 ELSE IF X=16 THEN GOSUB 490 
ELSE 

480 IF X=17 THEN ERASE A:CH3=3:CLS: PRINT "~W=LOAD/": CHAIN 
KI]! ALL 

490 ' 

500 ' 

O ' kkk STORE DATA ON FILE DISK xxx 

520 ' 

POOMETS:LOCATE 23,1,0:PRINT 'W'-W-DISK/W:GOSUB 6O:LOCATE 
E27,1:PRINT " ": LOCATE 
23,1,0:PRINT "-W-SAVE/" 

540 A(1)=SGW:A(2)=GW1:A(3)=WE:A(4)=VTIPMAX:A(5)=R:A(6)= 
OMEGA:A(7)=CT:A(8)=SIGMA:A(9)=B:A(10)=C:A(11)=AR:A(12)=CL: 
A(13)-CLALPHA:A(14)-CDO:A(15)-DL:A(16)-MBL:A(17)-MU:A(18)— 
MAXFVEL:A(19)=TIPLOSS:A(20)=PIN:A(21)=P0:A(22)=PT:A(23)=HP 
:A(24) -PERINDP 

550 V=24:FOR I=1 TO 3:FOR J=1 TO 15: V=V+1: Q=J+24:A(V)=W(Q- 
24,1):NEXT J,I:FOR τξ] TO 
3:A(I+69)=W2A(1I) :A(I+72) =W2B(I) :A(I+75) =W6A(L) :A(I+78) =W6B 
(I) :A(I+81)=W6C(I): NEXT I:A(85)=N:A(86) =WE(N): 

A(87)=GW(N) :A(88)=DL(N-1) :A(89) =FM(N- 

1) :A(90)=FL:A(91)=IRLG 

560 A(92)=NW:A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96)= 
FUEL:A(97)=PEOPLE:A(98) =UL:A(99) =SPECIAL:A(100) =ENGINE:A(1 
Ol)-ZZ:A(102)-AB:A(103)-GR:A(104)-RH:A(105)-H:A(106)-D:A(1 


*** CHAPTER THREE MAIN PROGRAM *** 


77 


07)=PINI:A(108)=PTI:A(109)=M:A(110)=EFPA:A(111)=RHO(2) :A(1 
12) =MM:A(113)=M(2) 

570 A(114) =CRUISEV:A(115)=CRU:A(116)=CRU2:A(117)=MAXF: 
A(118) =MAXF2:A(119)=MAXCRU1:A(120)=ALT:A(121)=TEMP:A(122)= 
LL:G=123:LL=LL+1:FOR I=1 TO LL:A(G)=0(1I) :G=G+1:NEXT 
I:G=G+1+LL:G1=G+1+2*LL: G2=G1+1+2*LL:G3=G2+1+2*LL:G4=G3+1+2 
*LL 

580 FOR I-1 TO 2:FOR J-1 TO LL:A(G)-PINF(I,J):A(GC1)- 
POF(I,J):A(G2)2PPF(I,J):A(G3)2PTF(I,J):A(G4) -TM(I,J):Gs2G-41 
:G1-2G141:G22G241:G326G341:G42GA4* 1: NEXT J,I 

590 LL(1)=127+(12*LL) :LL=LL-1 

600 Z=3:OPEN "B:DATA1" FOR OUTPUT AS #1:PRINT #1, Z:FOR 
I=1 TO 10:PRINT #1, LL(I):NEXT I:CLOSE #1 

610 OPEN "B:DATA3" FOR OUTPUT AS #1:FOR I=1 TO LL(1):PRINT 
#1, A(I):NEXT I:CLOSE #1:RETURN: 440 

620 ! 

630 ! 
640 ! 
650 ! 
660 ! 
670 ! 
680 ! 

690 COLOR 1,1,1:CLS: LOCATE 23,1,0:PRINT 
"~W=C3PRINT/":INPUT;"", PR:COLOR 15,1,1 

700 AP=0:IF PR=1 THEN GOTO 730 ELSE IF PR=2 THEN 
AP=1:GOSUB 1390 ELSE IF PR=3 THEN AP=1:GOSUB 2910 ELSE IF 
PR=4 THEN AP=0:GOTO 440 

710 'HE TABLE IS PRINTED PRESS ANY KEY AND RETURN TO THE 
PRINT MENU.":GOSUB 40:IF PR=2 THEN AP=1:GOSUB 1410 ELSE 
AP=1:GOSUB 2730 

730 CLS: LOCATE 23,1,0:PRINT "~W=PRINTER/":GOSUB 60 

740 LPRINT TAB(25) "TABLE OF CHAPTER THREE 

RESULTS": IS=CHR$ (9) 

750 LPRINT 

760 LPRINT 

770 LPRINT 

780 LPRINT TAB(12) "SPECIFICATION GROSS WEIGHT" ;TAB(57) 
SGW 

790 LPRINT TAB(12) "ROUGH ESTIMATE GROSS WEIGHT" ;TAB(57) 
CWI 

800 LPRINT TAB(12) "ESTIMATE OF MANUFACTURER'S EMPTY 
WEIGHT";TAB(57) WE 

810 LPRINT TAB(12) "MAXIMUM TIP VELOCITY";TAB(57) VTIPMAX 
820 LPRINT TAB(12) "ROTOR RADIUS";TAB(57) R 

830 LPRINT TAB(12) "ROTATIONAL VELOCITY" ;TAB(57) OMEGA 

840 LPRINT TAB(12) "THRUST COEFFICIENT";TAB(57) CT 

850 LPRINT TAB(12) "BLADE SOLIDITY";TAB(57) SIGMA 

860 LPRINT TAB(12) "NUMBER OF MAIN ROTOR BLADES";TAB(57) B 
870 LPRINT TAB(12) "BLADE CHORD";TAB(57) C 

880 LPRINT TAB(12) "BLADE ASPECT RATIO";TAB(57) AR 

890 LPRINT TAB(12) "AVERAGE LIFT COEFFICIENT";TAB(57) CL 


kkkx PRINT OUT DATA xxx 
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900 


PPRTNT 


CLALPHA 


910 
920 
930 
940 
E 


LPRINT 
LPRINT 
LPRINT 
IEPRINT 
LPRINT 


MAXFVEL 


960 
970 
PIN 


CERINT 
LPRINT 


980 LPRINT 
990 LPRINT 
1000 LPRINT TAB(12) 
1010 LPRINT TAB(12) 
PERINDP 
1020 LPRINT TAB(12) 


PINI 
1030 
1040 
EFPA 
1050 
1060 
1070 
1080 
1090 
1100 
πιο 
1120 
1130 
1140 
550) 

1150 
1160 
1170 


TAB(12) 


TAB (12) 
TAB(12) 
TAB(12) 
TAB(12) 
TAB(12) 


TAB (12) 
TAB(12) 


TAB(12) 
TAB (12) 


LPRINT TAB(12) 
LPRINT TAB(12) 


"BLADET LIET CURVE SLOPE"; TAB(57) 


"BLADE DRAG COEFFICIENT"; TAB(57) CDO 
"DISC LOADING";TAB(57) DL(N-1) 
"MAXIMUM ADVANCE RATIO";TAB(57) MU 
"MAXIMUM BLADE LOADING";TAB(57) MBL 
"MAXIMUM FORWARD VELOCITY";TAB(57) 


"TIPPEOSSWTAB(”(S7)F TIPLOSS 
"INDUCED POWER IN HOVER OGE";TAB(57) 


"PROFILE POWER IN HOVER OGE";TAB(57) PO 

"TOTAL POWER IN HOVER OGE";TAB(57) PT 
"FIGURE OF MERIT";TAB(57) FM(N-1) 
"PERCENT INDUCED POWER"; TAB(57) 


"INDUCED POWER IN HOVER IGE';TAB(57) 


"TOTAL POWER IN HOVER IGE";TAB(57) PTI 
"EQUIVALENT FLAT PLATE AREA";TAB(57) 


LCOPY:LPRINT CHR$ (12):RETURN 660 


*** CHAPTER THREE SUBROUTINES *** 


*** SECTION 3.1 *** 


(SOR(2*CT) / B) 


IF SGW>25000 THEN W1=GW1l ELSE W1=SGW 


/ (SQR(2*RHO*PI*(R*2)) * TIPLOSS * 


(RHO*CDO*B*C*(R^4) *(OMEGA^3)) / (8 * 550) 


f 

f 

f 

f 

' 

' 

TIPLOSS = 1 - 
PIN = (W141.5) 
PO = 

PT = PIN + PO 
HP = PT 


foo CLS:LOCATE 5,30,1:PRINT "*** SECTION 3.1 ***":; LOCATE 
fee, LS PRINT "-FIRST ESTIMATE OF POWER REQUIRED TO HOVER 


OGE-"";LOCATE 9,26,1:PRINT "INDUCED POWER =";PIN: LOCATE 
11,26,1:PRINT "PROFILE POWER z";po 

1190 LOCATE 13,26,1:PRINT "TOTAL POWER -';PT:GOSUB 6O0:IF 
X=12 THEN GOTO 1200 ELSE RETURN 440 

1200 ' 

1 1ο | 

E220 ' kkk SECTION 3.2 *** 
ο 

me40 ' 

M ORA2=1: CLS: LOCATE 5,27,1:PRINT "**4* SECTION 3.2 MENU 


***":LOCATE 7,23,1:PRINT "-PRELIMINARY POWER CALCULATIONS- 
"LOCATE 9,27,1:PRINT '"*** WEIGHT CATEGORIES ***':T.0CATE 
17 1:PRINT "1. 


LIGHT HELICOPTER LESS THAN 3000 lbs" 
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1260 LOCATE 14,17,1:PRINT "2. MEDIUM HELICOPTER ΡΕ ΡΜ, 
3000 — 25,000 ibs':LOCATE 16,17,1:PRT U OD P 
HELICOPTER GREATER THAN 25 ΑΦ ος 

1270 LOCATE 23,26,1:INPUT "WHICH αΑτεσ ο o pa 
WANT";Y:CLS:LOCATE 10,15,1:INPUT "WFROM HD=7 Ρο ια ΙΡ... 
CAPACITY (LBS) AND ENTER";FUEL:LOCATE 12,15,1:INPUT "ENTER 
NUMBER OF CREW AND OTHER 
PERSONNEL" ; PEOPLE: N=1: PAX=PEOPLE*250 

1280 LOCATE 14,15,1:INPUT 'ENTER SPECIFTCATTONSUSE ETA 
LOAD" ;UL: LOCATE 16,15,1: INPUT "ENTER WEIGHT OF ANY SPECIAL 
AVIONICS EQUIPMENT" ;SPECIAL: LOCATE 18,15,1: INPUT "ENTER 
ESTIMATE OF NUMBER OF ENGINES"; ENGINE 

1290 LOCATE 22,32,1:INPUT "ANY CHANGES (Y/N)";AS:IF AS="y" 
THEN GOTO 1250 ELSE IF AS="Y" GOTO 1250 ELSE IF AS="n" 
GOTO 1310 ELSE IF AS="N'"' GOTO 1310 ELSE 

1300 LOCATE 23,27,1:PRINT “you must enter (y/n) try 
again":LOCATE 22,50, 1:PRINT " ":GOTO. 1299 
1310 S = B*C*R:IF Y21 THEN GW(1)2173.701*(WE^.378) ELSE IF 
Y=2 THEN GW(1)=16239.43*LOG (WE) -130252.76# ELSE IF Y=3 
THEN GW(1)=4.975* (WE%. 887) 

1320 IF Y21 THEN GOSUB 3040 ELSE IF Y=2 THEN GOSUB 3370 
ELSE IE Y=3 THEN CGOSUB 3650 

1330 A2=0:IF X=12 THEN GOTO 1540 ELSE RETURN 440 

1340 '!' 


1550 4 

i399. *** PRINT WEIGHT ESTIMATION TABLE *** 
T3995 1 

1350 !' 

1390 CLS:LOCATE 1,30,1:PRINT "WEIGIT E Tip κα. 
TIABDE'USTEOCATE 3,42,1: PRINTI ΙΓ“ S s ITERATION -—--925 


----"; LOCATE 4,42,1:PRINT "FIRST SECOND 

THIRD": LOCATE 6,1,1:PRINT "1. ROTOR:";TAB(41) W(1,1) 
TAB(55) W(1,2) TAB(70) W(1,3) 

1400 PRINT "2. TAIL ROTOR:";TAB(41) W2A(1) TAB(55) 
W2A(2) TAB(70) W2A(3):PRINT " STRUCTURE: ";TAB(41) 
W2B(1) TAB(55) W2B(2) TAB(70) W2B(3):PRINT "3. 
BODY:";TAB(41) W(3,1) TAB(55) W(3,2) TAB(70) W(3,3) 

1410 PRINT "4. LANDING GEAR:";TAB(41) W(4,1) TAB(55) 
W(4,2) TAB(70) W(4,3):PRINT "5. NACELLE:'';TAB(41) W(5,1) 
TAB(55) W(5,2) TAB(70) W(5,3) 

1420 PRINT "6.  PROPULSION ENGINE:";TAB(41) W6A(1) TAB(55) 
W6A(2) TAB(70) W6A(3):PRINT TAB(16) "DRIVE:";TAB(41) 
W6B(1) TAB(55) W6B(2) TAB(70) W6B(3):PRINT TAB(16) "FUEL 
TANKS:";TAB(41) W6C(1) TAB(55) W6C(2) 

1430 LOCATE 14,70,1:PRINT W6C(3):PRINT "7. FLIGHT 
CONTROLS: ";TAB(41) W(7,1) TAB(55) W(7,2) TAB(70) 
W(7,3):PRINT "8. AUXILLARY POWER:";TAB(41) W(8,1) TAB(55) 
W(8,2) TAB(70) W(8,3) :PRINT "9. INSTRUMENTS:";TAB(41) 
W(9,1) TAB(55) W(9,2) TAB(70) W(9,3) 

1440 PRINT "10. HYDRAULICS:";TAB(41) W(10,1) TAB(55) 
W(10,2) TAB(70) W(10,3):PRINT "11. ELECTRICAL:";TAB(41) 
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LEE eb 05S awl 2) TAB(ZOJEW(11/5):PRINT "12. 

ΠΡ TAB(41) W(12,;1) TAB(55) W(12,2) TAB(70) 
fae? , 3) 3 PRINT "13. FURNISHINGS:" 

1450 LOCATE 21,41,1:PRINT W(13,1) TAB(55) W(13,2) TAB(70) 

1 (15.3): PRINT "1424, AIR & ICE:";TAB(41) W(14,1) TAB(55) 
W(14,2) TAB(70) W(14,3):PRINT "15. LOAD & 
HANDLING:";TAB(41) W(15,1) TAB(55) W(15,2) TAB(70) W(15,3) 
1460 IF X-14 THEN GOTO 1470 ELSE IF X-15 THEN GOTO 1470 
ELSE N=N+1 

1470 IF X-14 THEN GOTO 1480 ELSE IF X=15 THEN GOTO 1480 
ELSE IF N<l THEN GOTO 1480 ELSE WE(N)=0:FOR I=1 TO 
15:WE(N)=W(I, (N-1))+WE(N) :NEXT 1I:GW(N) =WE (N) +UL+FUEL+PAX 
1480 IF AP-1 THEN LCOPY:GOTO 1490 ELSE GOSUB 60 

ELO9O0 CLS:LOCATE 10,15,1:PRINT "THE NEW MANUFACTURER'S 
EMPTY WEIGHT z";WE(N):LOCATE 12;15,1:PRINT "THE NEW GROSS 
WEIGHT =";GW(N):IF AP=1 THEN LCOPY:LPRINT CHRS (12) : RETURN 
690 ELSE GOSUB 60 

1500 IF AB=1 THEN RETURN 2510 ELSE IF AB=2 THEN RETURN 
4060 ELSE IF A5=1 GOTO 2100 ELSE IF X=12 GOTO 1540 ELSE 
RETURN 440 
ESITO ' 
S20 ' 
MOS ' 
1540 ' 
1550 | 
E60 ' 

1570 DL(N) = GW(N) / (PI*R^2) 

l580 CLS:LOCATE 5,30,1:PRINT "*** SECTION 3.3 ***";LOCATE 
EE S,I:PRINT "-VALIDATE DISC LOADING-" 

ESSOLTF X721 THEN CLS:GOTO 1600 ELSE 

1600 LOCATE 10,24,1:PRINT "THE NEW GROSS WEIGHT 
OF:";GW(N):LOCATE 11,24,1:PRINT "HAS A DISC LOADING 
OF:";DL(N):LOCATE 13,20,1:PRINT "ORIGINAL DISC LOADING 
FROM FIGURE 2-2 ="DL 

1610 LOCATE 16,20,1:INPUT "DO YOU WANT TO MAKE ANY 
MODIFICATIONS (Y/N)";AS:IF A$-"y" THEN GOTO 1630 ELSE IF 
AS="Y" GOTO 1630 ELSE IF A$="n" GOTO 1700 ELSE IF AS="N" 
GOTO 1700 ELSE 

t620 LOCATE 24,25,1:INPUT "you must enter (y/n) try 
again';C$:IF CS-'Tv' THEN GOTO 1630 ELSE IF C$="Y" GOTO 
1630 ELSE IF CS="n" GOTO 1700 ELSE IF C$="N" GOTO 1700 
ELSE GOTO 1620 

1630 CLS: LOCATE 10,10,1:INPUT "DO YOU WANT TO CHANGE DISC 
LOADING" ;AS:IF AS="Y" THEN GOTO 1660 ELSE IF AS$="y" GOTO 
1660 ELSE 

1640 IF AS="N" GOTO 1680 ELSE IF AS="n" GOTO 1680 ELSE 
meso LOCATE 23,27,1:PRINT "you must enter (y/n) try 
again":GOTO 1630 

1660 LOCATE 12,10,1:INPUT "ENTER NEW DISC LOADING";DL: GOTO 
1700 


kkk SECTION 3.3 xxx 
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1670 R=SQR(GW(N)/(DL*PI)):OMEGA=VTIPMAX/R:CT=GW(N)/(BI* 
(R^2) *RHO* ( (OMEGA*R) ^2) ) : SIGMA=CT/MBL: C=(SIGMA*PI*R) /B: AR= 
R/C:CL-(CT*6)/SIGMA 

1680 CLS:LOCATE 5,10,1:PRINT "THE NEW ROTOR RADIUS 

IS:";R: LOCATE 8,10,1:PRINT "THE FOLLOWING VARIABLES HAVE 
CHANGED TO THESE NEW VALUES:":LOCATE 10,10,1:PRINT 


"ROTATIONAL VELOCITY ="; OMEGA 

1690 LOCATE 11,10,1:PRINT “THRUST COEFFICIENT =" CT rr Η 
TAB(10) "BLADE SOLIDITY z";SIGMA:PRINT TAB(10) "CHORD 
-";C:PRINT TAB(10) "ASPECT RATIO z";AR:PRINT TAB(10) "LIFT 
COEFFICIENT =";CL:GOSUB 60 


1700 IF X721 THEN RETURN 2440 ELSE IF X-12 THEN GOTO 1730 
ELSE RETURN 440 

1710 ! 

1720 ; 

710, *** SECTION 3.4 ***x 

1740 | 

"οσοι. 

1760 BBBB-FRE(WĦ) 

1770 ΕΞΙ 

1780 GOSUB 4010:GOSUB 

4020: FM(N) 2FM:WEA4 (0) WE (N) : GW4 (0) 2GW(N) 

1790 CLS:GOSUB 3960:LOCATE 4,56,1:PRINT "OPTIONS": LOGAUNB 
7,42,1:PRINT "1. INCREASE LENGTH OF ROTOR CHORD": LCOCADE 
9,42,1:PRINT "2. REDUCE ROTATIONAL VELOCITY το. τη 
11,42,1:PRINT “3. CHANGE ROTOR RADIUS": LOCATE 
13,42,1:PRINT "4. NO CHANGES" 

1800 AZ=0: LOCATE 16,50,1:INPUT "SELECT OPTION" ;W:IF W=1 
THEN GOTO 1860 ELSE IF W=2 GOTO 1870 ELSE IF W=3 GOTO 1880 
ELSE IF W=4 GOTO 1820 

1810 LOCATE 16,42,1:INPUT "number must be between 1-4 try 
again";W:IF W=1 THEN GOTO 1860 ELSE IF W=2 GOTO 1870 ELSE 
IF W=3 THEN GOTO 1880 ELSE IF W=4 GOTO 1820 ELSE GOTO 1810 
1820 IF X7-1 THEN RETURN 2460 ELSE IF X=12 THEN GOTO 2060 
ELSE RETURN 440 

1830 IF X=7 THEN RETURN 2460 ELSE IF X=11 THEN GOTO 2060 
ELSE RETURN 440 

1840 AZA=1:N4=N:N=20:GW(N)=GW(N4) :S=B*C*R: IF Y=1 THEN 
GOSUB 3040 ELSE IF Y=2 THEN GOSUB 3370 ELSE IF Y=3 THEN 
GOSUB 3650 

1850 EE=EE+1:WE4(EE)=0:FOR I=1 TO 15:WE4 (EE)=W(1I,N)+ 

WE4 (EE) : NEXT 
I:GW4(EE)=WE4(EE)+UL+FUEL+PAX:N=N4:AZA=0:RETURN 

1860 LOCATE 20,45,1:INPUT "ENTER NEW BLADE CHORD 
LENGTH!'!;C;:E=E+1:2ZZ=1:ZA=0:;:GOSUB 240:GOSUB 4010:GOSUB 
4020:GOSUB 1840:GOSUB 1890:GOTO 1920 

1870 E=E+1:ZZ=1: ZA=1:GOSUB 130:GOSUB 4010:GOSUB 4020:GOSUB 
1840: GOSUB 1890: COTO, 1320 

1880 LOCATE 20,45,1:INPUT “ENTER NEW ROTOR 

RADIUS" ;R: E=E+1: ZZ=1: ZA=0:GOSUB 240:GOSUB 4010:GOSUB 
4020:GOSUB 1840:GOSUB 1890:GOTO 1920 
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GI ο FOR I=7 TO 11:LOCATETIY25,1:PRINT " 

oven TIFOR T=15 TO 22:LOCATE I,25,1:PRINT " 

ESNEXT I 

NUDO LOCATE 7,25,1:PRINT PIN(1):LOCATE 8,25,1:PRINT 

Pere) sbOCATE 9,25,1: PRINT PT(1):LOCATE 10,25,1:PRINT 

EM: LOCATE 11,25,1:PRINT PERINDP:LOCATE 15,25,1:PRINT 
feet Ge) s LOCATE 16,25,1:PRINT GWA(EE):LOCATE 17,25,1:PRINT 
OMEGA: LOCATE’ 18,25,1: PRINT CT 

NONO LOCATE 19,25,1:PRINT SIGMA:LOCATE 20,25,1:PRINT 
LEENOCATE 2171,25,1: PRINT C:LOCATE 22,25,1:PRINT AR:LOCATE 
23,25,1:PRINT CL:RETURN 

MEŻOMFOR I=3 TO 23:LOCATE I,41,1:PRINT '' 

MAMEXT ISLOCATE 4,56,1:PRINT 'OPTIONS'W:LOCATE 7,42,1:PRINT 
mi. INCREASE LENGTH OF ROTOR CHORD":LOCATE 9,42,1:PRINT 
were REDUCE ROTATIONAL VELOCITY":LOCATE 11,42,1 

1930 PRINT "3. CHANGE ROTOR RADIUS":LOCATE 13,42,1:PRINT 
LS LIST FIRST & LAST SET OF PARAMETERS":LOCATE 
meee, bs PRINT "5. NO CHANGES": LOCATE 18,50,1: INPUT 
"SELECT OPTION" ;W: IF W=1 THEN GOTO 1860 ELSE IF W=2 GOTO 
1870 ELSE IF W=3 GOTO 1880 ELSE 

1940 IF W=4 GOTO 1960 ELSE IF W=5 GOTO 1820 ELSE 

1950 LOCATE 20,42,1:INPUT "number must be between 1-5 try 
again" ;W:IF W=1 THEN GOTO 1860 ELSE IF W=2 GOTO 1870 ELSE 
IF W=3 GOTO 1880 ELSE IF W=4 GOTO 1960 ELSE IF W=5 GOTO 
440 ELSE GOTO 1950 

1960 FOR I=3 TO 23:LOCATE I,41,1:PRINT " 

MANEXT I 

1970 NN=42:EE=1:FOR I=1 TO 2:IF I=1ç1 THEN LOCATE 
4,42,1:PRINT "ORIGINAL": LOCATE 5,42,1:PRINT "PARAMETERS" 
meet LOCATE 4,60,13:PRINT "LAST SET OF":LOCATE 5,60,1:PRINI 
"PARAMETERS" 

1980 LOCATE 7,NN,1: PRINT PIN(EE) :LOCATE 8,NN,1:PRINT 
PO(EE):LOCATE 9,NN,1:PRINT PT(EE):LOCATE 10,NN,1:PRINT 
FM(EE):LOCATE 11,NN,1:PRINT PERINDP(EE):LOCATE 
15,NN,1:PRINT WEA(EE-1):LOCATE 16,NN,1:PRINT GWA(EE- 

1): LOCATE 17,NN,1:PRINT OMEGA(EE) 

moO LOCATE 18,NN,1: PRINT CT(EE):LOCATE 19,NN,1:PRINT 
SIGMA(EE):LOCATE 20,NN,1:PRINT R(EE):LOCATE 21,NN,1:PRINT 
C(EE):LOCATE 22,NN,1:PRINT AR(EE):LOCATE 23,NN,1:PRINT 
CL(EE):NN260:EEZSE-1:NEXT I:GOSUB 2000:GOTO 1920 

2000 LOCATE 25,45,0:PRINT "** press any key to continue 

* z! 

2010 AS=INKEYS:IF AS="" THEN 2000 

2020 LOCATE 25,45,0:PRINT " 

n 

2030 RETURN 

2040 | 

2050 ' 
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2060 ' kkk SECTION 3:573 

2070? 

2080 ' 

2090 IF Y-1 THEN A5-1:GOSUB 3040 ELSE IF Y=2 THEN 
A5=1:GOSUB 3370 ELSE IF Y=3 THEN A5=1:GOSUB 3650 

2100 AC2O:IF X=12 THEN GOTO 2120 ELSE RETURN 440 

2110! 

2120 

213077 *** SECTION 3.6 *** 

2140 ' 

2 150m 

2160 CLS:LOCATE 2,30,1:PRINT "*** SECTION 3.6 www"; los -- 
3,20,1: PRINT "-LANDING GEAR-":LOCATE 6,30,1:PRINT "LANDING 
GEAR OPTIONS": LOCATE 9,25,1:PRIND “2. SKIDST-LOEF EE 
11,25,1:PRINT "2. FIXED LANDING GEAR" 

2170 LOCATE 13,25,1:PRINT "3. ΕΕΡΙ ο ΕΡΕ ΕΕ 

2180 LOCATE 16,28,1:INPUT "SELECT LANDING GEAR 
OPTION";GR:IF GR=1 THEN GOTO 2190 ELSE IF GR=2 GOTO 2200 
ELSE IF GR=3 GOTO 2210 ELSE LOCATE 18,24,1:PRINT "number 
must be between 1-3 try again":LOCATE 16,55,1:PRINT " 
":GOTO 2170 ! 

2190 AA=1:IF B=2 THEN FL=2 ELSE FL=4:GOTO 2220 

2200 AA=2:IRLG = 1:LOCATE 20,30,1:INPUT "NUMBER OF LANDING 
GEAR";NW:GOTO 2220 

2210 AA-2:IRLG -» 2:LOCATE 20,30,1:INPUT "NUMBER OF LANDING 
GEAR";NW:GOTO 2220 

2220 LOCATE 23,30,0:INPUT "ANY CHANGES (Y/N)";BS:1F Boo 
THEN GOTO 2160 ELSE IF BS="y" GOTO 2160 ELSE IF BŞ="N" 
GOTO 2240 ELSE IF BS="n" GOTO 2240 ELSE 

2230 LOCATE 25,27,0:PRINT "you must enter (y/n) EA 
again":GOTO 2220 

2240 A5=0:IF X-12 THEN GOTO 2250 ELSE RETURN 440 

22500 

2260 ! 

2270 ' kkk SECTION GS. 7a 

2280 ' 

22907) 

2300 GOSUB 4010 

2310 CLS:LOCATE 5,30,1:PRINT 'ixxx SECTION 3./ πχ ος. 
7,16,1:PRINT “-THIRD ESTIMATE OF POWER REQUTREB ΕΟΤ ĦA 


OGE-W':LOCATE 9,26,1:PRINT "INDUCED POWER =";PIN: LOCATE 
11,26,1: PRINT “PROFILE ΤΟΜΕ ΞΕ; 

2320 LOCATE 13,26,1:PRINT "TOTAL POWER ="; PT: GOsUBscol ΟΥΡ 
A=12 THEN GOTO 2360 ELSE RETURN 440 

259074 

2340 ' 
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2350 ' kkk SECTION 3.8 *** 

2360 | 

2370 ' 

2380 BBBB-FRE("") 

2390 A721:CLS:LOCATE 5,30,1:PRINT "*** SECTION 3.8 
***':TLOCATE 7,18,1:PRINT '"-GROSS WEIGHT AND HOVER POWER 
ITERATIONS-"': PT(N)=PT:FM(N)=FM: LOCATE 10,4,1:PRINT "IF 
DISC LOADING OR FIGURE OF MERIT EXCEED THEIR DEFINED LIMIT 
THE PROGRAM" 

2400 LOCATE 11,4,1:PRINT "WILL AUTOMATICALLY GO TO SECTION 
3.3 OR 3.4 TO ALLOW CORRECTIONS AND RETURN" :GOSUB 
60:LOCATE 23,1,0:PRINT "~W=COMP/":N=N+1:GW(N)=GW(N-1) 

2410 AZ-1:1F Y-1 THEN GOSUB 3040 ELSE IF Y-2 THEN GOSUB 
3370 ELSE IF Y=3 THEN GOSUB 3650 

2420 WE(N)=0:FOR I=1 TO 15:WE(N)=W(I, (N))+WE(N) :NEXT 
I:GW(N) =WE(N) +UL+FUEL+PAX 

2430 GOSUB 4010:PT(N)=PT:FM(N)=FM:DL(N)=GW(N) /(PI*R‘2) : IF 
DL(N)>DL THEN X7=1:GOSUB 1590 

2440 IF FM(N)< .7 THEN GOSUB 1790 ELSE IF Y=3 THEN GOSUB 
2450 ELSE IF FM(N)> .8 THEN GOSUB 1790 ELSE 

2450 IF FM(N)>.85 THEN GOSUB 1790 

2460 PERDIFW - (ABS(GW(N)-GW(N-1))/GW(N))*100:PERDIFP - 
(ABS (PT (N) -PT(N-1))/PT(N)) *100 

2470 IF PERDIFW « 10 THEN GOTO 2480 ELSE GW(N)=GW(N- 
1):GOTO 2410 

2480 IF PERDIFP < 10 THEN GOTO 2490 ELSE GW(N)=GW(N- 
1):GOTO 2410 

2490 W(1,3)=W(1,N) :W(2,3)=W(2,N) :W2A(3)=W2A(N) :W2B(3)= 
W2B(N) :W(3,3)=W(3,N) :W(4,3)=W(4,N) :W(5,3)=W(5,N) :W(6,3) =W( 
6,N) :W6A(3)=W6A(N) :W6B(3) =W6B(N) :W6C(3)=W6C(N) :W(7,3)=W(7, 
N):W(8,3) W(8,N) :(9,3) W(9,N) :8(10,3) W(10,N) :W(11,3)-W(1 
1,N) :W(12,3)=W(12,N) 

2500 W(13,3)=W(13,N):W(14,3)=W(14,N):W(15,3)=W(15,N) :AB=1: 
GOSUB 1390 

2510 A7=0:AB=0:CLS: LOCATE 10,20,1:PRINT "PERCENT 
DIFFERENCE IN WEIGHT =";PERDIFW:LOCATE 12,20,1:PRINT 


"PERCENT DIFFERENCE IN POWER ="";PERDIFP: ITER=N-4: LOCATE 
14,20,1:PRINT "NUMBER OF ITERATIONS =";ITER:GOSUB 60:IF 
A=12 THEN GOTO 2540 ELSE RETURN 440 

Ὁ 

2530 ! 

2540 ' AKA SECTION 3.9 x*<*<*%* 

2550 ' 

2560 ' 


2570 CLS:LOCATE 2,30,2:PRINT 'ixkk SECTION 3.9 ***";LOCATE 
3,22,1:PRINT "-POWER REQUIRED TO HOVER IGE, SSL-":LOCATE 
10,10,1:1NPUT "FROM HD-7 ESTIMATE ROTOR HEIGHT ABOVE 
GROUND AND ENTER" ;RH:H=RH+5:D=2*R 

2580 PINI - ((-.1276*((H/D)^4) * .708*((H/D)^3) - 1.4569* 
((H/D)^2) + 1.3432*(H/D) + .5147) * PIN) :PTI=PINI+PO 


85 


2590 LOCATE 14,18,1:PRINT "INDUCED POWER REQUIRED TO HOVER 
IGE =";PINI: LOCATE 16,18,1:PRINT "TOTAL POWER REQUIRED TO 
HOVER IGE =";PTI:GOSUB 60:IF X=12 THEN GOTO 2620 ELSE 
RETURN 440 

21/600 

26108: 

2620m *** SECTION 3.10 ***x* 

2599 

2640 ' 

2650 CLS:LOCATE 2,30,1:PRINT "*** SECTION 3.10 ΗΠ». 
3,20,2: PRINT "-EQUIVALENT FLAT PLATE AREA (HORIZONTAL)- 
"LOCATE 8,30,1:PRINT "TABLE IT OPTIONS TRIE CARE 
10,32,1:PRINT "1. OBSERVER": LOCATE 11362) D τη 
ATTACKS." 

2660 LOCATE 12,32,1: PRINT "3. Απ ΕΕ c inn 
13,32,1:PRINT "4. UTILITV IV: LOGCATE O P PP II DE 
UTILITY II":LOCATE 15,32,1:PRINT ΕΟ ΤΕ Τ ο 
18,26,1:INPUT "WHICH MISSION DO εν ΠῚ 

2670 IF M-1 THEN GOTO 2680 ELSE IF M=2 GOTO 2690 ELSE IF 
M=3 THEN EFPA=34.98:GOTO 2730 ELSE IF M=4 GOTO 2700 ELSE 
IF M=5 THEN EFPA=27.81625:GOTO 2730 ELSE IF M=6 GOTO .2710 
2680 IF GR>1 THEN EFPA=13.122:GOTO 2730 ELSE 
EFPA=12.15:GOTO 2730 

2690 IF GR>2 THEN EFPA=20.0448:GOTO 2730 ELSE 
EFPA=20.88:GOTO 2730 

2700 IF GR>2 THEN EFPA=19.2576:GOTO 2730 ELSE 
EFPA=20.06:GOTO 2730 

2710 LOCATE 20,20,1:INPUT "IS THE FUSELAGE TNOSER ENEE 
ROUND OR STREAMLINE (R/S)";AŞ:IF AŞ="R" THEN 
EFPA=48.3181:GOTO 2730 ELSE IF AS$z"r" THEN 
EFPA=48.3181:GOTO 2730 ELSE IF AS="S" THEN 
EFPA=46.33785:GOTO 2730 ELSE IF AS="s" THEN EFPA=46.33785 
2720 GOTO 2730 ELSE LOCATE 24,25,1: PRINT "you must ΕΠ 
(R/S) - try "again: COT@m2 7.0 

2730 LOCATE 22,23,1:PRINT "EQUIVALENT FLAT PLATE AREA 
-"P;EFPA:GOSUB 60:IF X212 THEN GOTO 2760 ELSE RETURN 440 
27405 

2750F"! 

2760 7 *** SECTIONS 3.11 444 

2m TO 

2780 ! 

2790 BBBSERE("")} 

2800 CLS:LOCATE 2,30,1:PRINT "*** SECTION 3.11 **w**%"; OC a 
3,20,1:PRINT "-TOTAL POWER REQUIRED AND TIP MACH NUMBERS 
Ħ:RHO(1)-RHO:M(1)—-1116.89 

2810 LOCATE 10,23,1:INPUT "ENTER SPECIFTCATTONSC OUTZE 
SPEED" ; CRUISEV: LOCATE 12,23,1:INPUT "ENTER SPECIE ley ie 
ALTITUDE"; ALT: LOCATE 14,23,1: INPUT “ENTER SPECIE GG. tet 
TEMPERATURE" ; TEMP 
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BEDDOSPOCATE 23.32,2:INPUT "ANY CHANGES (Y/N)";AS:IF A$z-"vy" 
THEN GOTO 2800 ELSE IF AS$="y" GOTO 2800 ELSE IF AS="N" 
GOTO 2840 ELSE IF AS="n" GOTO 2840 ELSE 

2830 LOCATE 24,27,1:PRINT "you must enter (y/n) try 
adain": LOCATE 23,50,1:PRINT ' 1:GOTO 2820 

2840 LOCATE 23,32,1:PRINT " 

": LOCATE 23,1,0:PRINT "-W-COMP/" 

2850 M(2)=SQR(2400.82388#*(459.688+TEMP) ) :RHO(2)=RHO(1) * 
eee 6.6 7/235) * (10-6) ALT) *~5.2561) *518.688/ (459.688+TEMP) 

: CRU=CRUISEV: CRU1L=CRU/20: CRU2=FIX (CRU1)+1:MAXF=MAXFVEL: MAX 
FI=MAXF/20:MAXF2=FIX (MAXF1)+1:MAXCRU=(MAXF-CRU) /20 

2860 MAXCRU1=FIX(MAXCRU): FOR I=1 TO 2:J=0:LL=1: FOR K=1 TO 
CRU2:GOSUB 3000:J=J+20: LL=LLt1:NEXT K,I:J(1)=J:1IF 
CRUI=FIX(CRU1) THEN CRU3=CRU2:GOTO 2870 ELSE FOR I=1 TO 
2:CRU3=CRU2+1:J=CRU:GOSUB 3000:NEXT I: LL=LLt+1: L1=LL: L2=LL- 
al 

2870 IF MAXCRU1-»1 THEN J2J(1):GOSUB 3020 

2880 IF MAXFI-FIX(MAXF1) THEN MAXF3-MAXF2:J-2J(1):GOTO 3020 
ELSE 

2890 FOR I=1 TO 2:MAXF3=MAXF2+1:J=MAXF:GOSUB 3000:NEXT I 

. 2900 LL=LL+1: FOR I=1 TO 2:J=MAXF+20:GOSUB 3000:NEXT 

I: LL=LL-1 

2910 FOR KK=1 TO 2:GOSUB 2920:NEXT KK:IF AB=2 THEN RETURN 
4060 ELSE IF AP=1 THEN LPRINT CHRS (12):RETURN 690 ELSE 
GOTO 440 

2920 CLS:LOCATE 2,33,1:PRINT "MAIN ROTOR POWER" 

2930 IF KK-1 THEN LOCATE 4,32,1:PRINT "STANDARD SEA 
EEUNEL':LOCATE 5,20,1:PRINT "ALTITUDE- O FT TEMPERATURE 
= 59 DEG. F" ELSE 

2940 IF KK=2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 


Peer rUDE™: LOCATE 5,18,1:PRINT "ALTITUDE =";ALT: LOCATE 
bee, 13PRINT "FT TEMPERATURE =";TEMP: LOCATE 
EEGULI:PRINT "DEG. F" 

2950 LOCATE 7,29,1:PRINT "----------------- POWER -2----2--- 
` ` = MLOCATE 9,8, 0] 9PRINTDSUESRSPEED TIP 

INDUCED PROFILE PARASITE TOTAL" 

ESOO LOCATE 10,9,1:PRINT "(knots) MACH ( SHP) 

(SHP) (SHP) (SHP)" 


2970 AS="Ü###.#"u:BS="#. ###"u;CS=W#š###.##W;:K=12:I=0:FOR L=1 
TO LL:LOCATE K,9,1:PRINT USING AS;O(L):LOCATE K,19,1:PRINT 
USING BS;TM(KK,L):LOCATE K,29,1:PRINT USING 
CS;PINF(KK,L):LOCATE K,41,l:PRINT USING 
C$;POF(KK,L):LOCATE K,53,1:PRINT USING C$;PPF(KK,L) 

2980 LOCATE K,65,1:PRINT USING C$;PTF(KK,L) :K=K+1:NEXT L 
2990 IF AP=1 THEN LCOPY:RETURN ELSE GOSUB 60:RETURN 

3000 CT=GW(N) /(PI*R*4*RHO(I) *OMEGA*2) : TIPLOSS=1- 
(SQR(2*CT) /B) :O(LL) =J7: DA=(PI*R‘*2) : VF=J3*1.687778: VH2=GW(N)/ 
(2*RHO(I) *DA) :MU1=VF/ (OMEGA*R) : PINF(I,LL)=(GW(N) *SQR(((VF% 
E(- 

VH2*2) ) -8QR( ( VF^2)/ (2*VH2) )^2*1) ) *SOR(VH2))/ (550*TIPLOSS) 
:A (GG) =J7:B(GG)=PINF(I,LL) 
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3010 


POF(I,LL)-((SIGMA*CDO*RHO(I)*DA*((OMEGA*R)^3)*(1*4.3* 


(MU1*2)))/4400) :PPF(I,LL)=(RHO(I) *(VF*3) *EFPA) /1100:PTF(I, 
LL) =PINF(I,LL)+POF(I,LL)+PPF(1I,LL) :TM(1I,LL)=( (OMEGA*R) +VF) 
/M(I):RETURN 


3020 


IF MAXCRU1»1 AND MAXCRUI-MAXCRU THEN 


MC-CINT(MAXCRU1/2) ELSE IF MAXCRU1»1 THEN 
MC=CINT (MAXCRU1/2)+1 ELSE IF MAXCRU1=MAXCRU THEN MC=0 ELSE 
MC=MAXCRU1 


3030 


L1=LL: FOR ΤΞΙ TO 2:J-J(l):LL-LI:FOR K-1 TO MC:GOSUB 


3000:J=J+20: LL=LL+1:NEXT K,I:L3=LL: GOTO 2890 

3040 ! 

3050 7! 

3060 ' *** WEIGHT ESTIMATING RELATIONSHIPS *** 
3070 1 

3080 ' ; 

3090 ! *** LIGHT HELICOPTER  *** 

3100 ' 

52110 ! 

3120 STT = .264 * EXP(.0135*HP) 

3130 SB = 194.274 * LOG(GW(N)) - 1306.779 

3140 ' 

5150! 

3160 W(1,N) = 408.562 * LOG(S) - 1142.917 

3170 W2A(N) = 2.219 * EXP(.0005*GW(N)) 

3180 W2B(N) = 19.131 * LOG(STT) - 32.414:W(2,N)=W2A(N)+ 
W2B(N) . 

3190 W(3,N) = 00901 *.SB209917 

3200 IF AA-1 THEN W(4,N) = .0245*(GW(N)^.8606) * (FL^.8046) 
ELSE W(4,N) = -.0539 * GW(N) + 200.912 

3210 W(5,N) = 34 

3220 W6A(N) = -8.959999E-02 > HP t 2217338 

3230 W6B(N) = 17.19 * EXP(.0008*GW(N)) 

3240 W6C(N) = .384 * (FUEL/6.5)^1.071:W(6,N) -W6A(N) TW6B(N) 
+W6C (N) 

3250 W(7,N) = 1.28E-10* (GW(N) <3. 469) 

3260 W(8,N) = 0 

3270 W(9,N) = 24.571 * EXP(.0004*HP) 

3280 W(10,N) = 0 

3290 W(11,N) = -51.0661 * LOG (SB) p ΠΤ 

3300 W(12,N) = 105 + SPECIAL 

3310 W(13,N) = 19.8 * (EXP(.372*PEOPLE) + EXP(—(> 053 ο. 
3320 W(14,N) = -22.371 * LOG(SB) + 143.396 

3330 W(15,N)F= ο 

3340 IF AZ-1 THEN RETURN 2420 ELSE IF AZA-1 THEN RETURN 
1850 ELSE RETURN 1390 

3350: 

33602: 
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3370 
3380 
E390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
ELSE 


(IRLG*.1198) ELSE IF GW(N)>6000 THEN W(4,N) 
LOG (GW(N)) 


*** MEDIUM HELICOPTER  *** 

t 

' 

STT = .0376 * HP - 8.106 

SB = 636.081 * EXP(.000011*GW(N)) 

f 

' 

W(1,N) = 11.0702 * S -168.888 

W2A(N) = .00438 * GW(N) + 12.47 

W2B(N) = 2.411 * STT - 19.531:W(2,N) = W2A(N)+W2B(N) 
W(3,N) = .282 * SB41.272 

ΙΕ λλ-1 THEN W(4,N)=.0245*((GW(N) )*.8606) *(FL*.8046) 


IF AA=2 THEN W(4,N) = .4013*(GW(N)%*. 6662) *(NW*.536) * 
= 301.577 * 


ΘΙ ο ΗΕ W(2;N) = 2.025 * EXE(.000062 * 


GW(N) + 8.020001) 

3490 W(5,N) = .02 * EXP(.000062 * GW(N) + 8.020001) 
3500 IF ENGINE-1 THEN W6A(N) = 130 + .24 * HP ELSE W6A(N) 
= 350.4 + .19 * HP 

3510 W6B(N) = 741.46 * LOG(HP) - 4542.042 

3520 W6C(N) = 363.24 * LOG(FUEL/6.5) - 1656.521:W(6,N)= 
W6A (N)+W6B(N)+W6C(N) 

3530 W(7,N) = 210.858 * EXP(.000059 * GW(N)) 

3540 IF ENGINES=1 THEN W(8,N) = 0 ELSE W(8,N) = 190 
3550 W(9,N) = 56.0975 * LOG(HP) - 312.237 

3560 W(10,N) = .00362 * GW(N) + 11.553 

3570 W(11,N) = 481.735 * LOG(SB) - 2794.53 

3580 W(12,N) = 250 + SPECIAL 

3590 W(13,N) = .175 * SB + 22 * PEOPLE - 10 

3600 W(14,N) = 122.458 * LOG(SB) -730.252 

3610 W(15,N) = 84.5 

3620 IF AZ-1 THEN RETURN 2420 ELSE IF AZA-1 THEN RETURN 
1850 ELSE RETURN 1390 

3630 ' 

3640 ' 

3650 ' 

3660 ' 

3670 ' 

3680 ' ***  HEAVY HELICOPTER  *** 

3690 ' 

3700 ' 

3710 STT = 60.127 * EXP(.000145*HP) 

3720 SB = 426.378 * EXP(.000045*GW(N) ) 

e730 ' 

3740 ' 

3750 W(1,N) = 707.174 * EXP(.00539*B*C*R) 

3760 W2A(N) = 324.55 * LOG(GW(N)) - 3021.51 

3770 W2B(N) = -18! + 2.83 * STT:W(2,N)=W2A(N)+W2B(N) 
3780 W(3,N) = 2.9818 * SB - 1321.921 

3790 IF AA=2 THEN W(4,N) = .4013*(GW(N)*.6662) *(NW*.536) 


*(IRLG^.1198) ELSE W(4,N) 


= 258.358 * EXP(.000041 * GW(N)) 
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3800 W(5,N) 
3810 W6A(N) 


.014 * (.2041 * GUN MAG 
348 + .91 *HP 
3820 W6B(N) .999 * HP^.959 
3830 W6C(N) = 454.619 * (FUEL/6.5)%(-.0566) :W(6,N)= 
W6A(N)+W6B(N)+W6C(N) 
3840 W(7,N) .00334 * GW(N)^1.224 
3850 W(8,N) = 139 
3860 W(9,N) = 68.266 * LOG(HP) - 387.598 
3870 W(10,N) = 6.63E-07 * GW(N)^1.863 
3880 W(11,N) = 9.78 * SB*.539 
3890 W(12,N) = 325 + SPECIAL 
3900 W(13,N) .159 * SB + 18.11 * PEOPLE 
3910 W(14,N) 117.771 * LOG(SB) - 710.594 
3920 W(15,N) = -72 + .111*SB + 3.49 * PEOPLE 
3930 IF AZ=1 THEN RETURN 2420 ELSE IF AZA=1 THEN RETURN 
1850 ELSE RETURN 1390 
l 


3940 

39503! 

3960 CLS:LOCATE 3,1,1:FOR I=1 TO 21:5ΡΕΙΝΤ ΤΑΒΓ40ΟῚ 
I:;FOR I=1 TO 39: LOCATE 13,1,1:PRING SD EI 


3970 LOCATE 2,31,1:PRINT "*** SECTION 3.4 ***"; LOCATE 
4,26,1:PRINT "CURRENT": LOCATE 5,25,1:PRINT 

"PARAMETERS": LOCATE 7,2,1:PRINT "INDUCED POWER:";TAB(25) 
PIN: PRINT TAB(2) "PROFILE POWER:";TAB(25) PO:PRINT TAB(2) 
"TOTAL POWER:";TAB(25) PT 

3980 PRINT TAB(2) "FIGURE OF MERIT:";TAB(25) FM:PRINT 
TAB(2) "% INDUCED POWER:";TAB(25) PERINDP: LOCATE 
15,2,1:PRINT "EMPTY WEIGHT";TAB(25) WE(N):PRINT TAB(2) 
"GROSS WEIGHT";TAB(25) GW(N):PRINT TAB(2) "ROTATIONAL 
VELOCITY:";TAB(25) OMEGA 

3990 PRINT TAB(2) "THRUST COEFFICIENT";TAB(25) CT:PRINT 
TAB(2) "BLADE SOLIDITY:";TAB(25) SIGMA:PRINT TAB(2) "ROTOR 
RADIUS";TAB(25) R:PRINT TAB(2) "CHORD";TAB(25) C:PRINT 
TAB(2) "ASPECT RATIO";TAB(25) AR:PRINT TAB(2) "COEFFICIENT 
OF LIFT:";TAB(25) CL 

4000 RETURN 

4010 CT2GW(N)/(PI*R^4*RHO*OMEGA^2) : TIPLOSS=1- 
(SQR(2*CT)/B): 

PIN-(GW(N)^1.5)/ (SQR(2*RHO*PI*(R^2)) *TIPLOSS*550):PO- (RHO* 
CDO*B*C*(R^4) * (OMEGA^3) )/(8*550) : PT=PIN+PO:HP=PT: PINWOTL-P 
IN*TIPLOSS:FM-PINWOTL/PT:PERINDP-(PIN/PT)*100:S-B*C*R:RETU 
RN 

4020 PIN(E)=PIN: PO(E) =PO: PT(E)=PT:FM(E)=FM: PERINDP(E) = 
PERINDP: OMEGA (E) =OMEGA: CT (E) =CT: SIGMA(E) =SIGMA:R(E)=R:C(E) 
=C:AR(E) =AR:CL(E)=CL: RETURN 

4030 PIN=PIN(E) : PO=PO(E) : PT=PT(E) : FM=FM(E) : PERINDP= 
PERINDP(E) :OMEGA=OMEGA (E) : CT=CT(E) : SIGMA=SIGMA(E) :R=R(E):C 
=C(E) :AR=AR(E) :CL=CL(E) : RETURN 

4040 IF 65535!=ERL THEN GOTO 4050 ELSE RESUME 

4050 IF ZZ=1 THEN LOCATE 23,45,1:PRINT "MUST BE A 

NUMBER": LOCATE 24,45,1:INPUT "TRY AGAIN";W:RESUME ELSE 


90 


LOCATE 24,20,1:PRINT "ENTRY MUST BE A NUMBER TRY 
AGAIN":RESUME 

ο ο πο Ὁ T-EBS:LOCATE 23,1,0:PRINTI 

ECS RESULT": INPUT 20 RE:COLOR 155,138 

4070 IF RE-1 THEN GOTO 4080 ELSE ΤΕ RE-2 THEN AB-2:GOSUB 
1390 ELSE IF RE-3 THEN AB-2:GOSUB 2910 ELSE IF RE-4 THEN 


GOTO 


440 


4080 CLS:LOCATE 2,25,1:PRINT "TABLE OF CHAPTER THREE 
RESULTS" | 
4090 LOCATE 5,5,1:PRINT "SPECIFICATION GROSS 
WEIGHT'";TAB(50) SGW 

4100 PRINT TAB(5) 


GW1 


4110 PRINT TAB(5) 


WEIGHT';TAB(50) WE 


"ROUGH ESTIMATE GROSS WEIGHT";TAB(50) 
"ESTIMATE OF MANUFACTURER'S EMPTY 


BIDAXIMUMSDIESUEDOCITYSLTAB(5O) VITPMAX 


4120 PRINT TAB(5) 

4130 PRINT TAB(5) "ROTOR RADIUS";TAB(50) R 

4140 PRINT TAB(5) "ROTATIONAL VELOCITY";TAB(50) OMEGA 
4150 PRINT TAB(5) "BLADE SOLIDITY";TAB(50) SIGMA 

4160 PRINT TAB(5) "NUMBER OF MAIN ROTOR BLADES";TAB(50) B 
4170 PRINT TAB(5) "BLADE CHORD";TAB(50) C 

4180 PRINT TAB(5) "BLADE ASPECT RATIO";TAB(50) AR 

4190 PRINT TAB(5) "AVERAGE LIFT COEFFICIENT" ;TAB(50) CL 
4200 PRINT TAB(5) "BLADE LIFT CURVE SLOPE";TAB(50) CLALPHA 
4210 PRINT TAB(5) "BLADE DRAG COEFFICIENT";TAB(50) CDO 
4220 PRINT TAB(5) "DISC LOADING";TAB(50) DL(N-1) 

4230 PRINT TAB(5) "MAXIMUM ADVANCE RATIO";TAB(50) MU 

4240 PRINT TAB(5) "MAXIMUM BLADE LOADING";TAB(50) MBL 
4250 PRINT TAB(5) "MAXIMUM FORWARD VELOCITY";TAB(50) 
MAXFVEL 

4260 GOSUB 60 

4270 CLS:LOCATE 5,5,1:PRINT "TIPLOSS";TAB(50) TIPLOSS 
4280 PRINT TAB(5) "INDUCED POWER IN HOVER OGE";TAB(50) PIN 
4290 PRINT TAB(5) "PROFILE POWER IN HOVER OGE";TAB(50) PO 
4300 PRINT TAB(5) "TOTAL POWER IN HOVER OGE";TAB(50) PT 
4310 PRINT TAB(5) "FIGURE OF MERIT";TAB(50) ΕΜ(Ν-1) 

4320 PRINT TAB(5) "PERCENT INDUCED POWER";TAB(50) PERINDP 
4330 PRINT TAB(5) "INDUCED POWER IN HOVER IGE";TAB(50) 
PINI 

4340 PRINT TAB(5) "TOTAL POWER IN HOVER IGE";TAB(50) PTI 
4350 PRINT TAB(5) "EQUIVALENT FLAT PLATE AREA";TAB(50) 
EFPA 

4360 GOSUB 60:RETURN 4060 

4370 ' 

4380 ' 

4390 ' *** DATA INPUT *** 

4400 ' 

4410 ' 

4420 ' 

4430 COLOR 1,1,1:CLS:PRINT 'l-W-INPUT/'': INPUT ;'Ħ WW: COLOR 
15,1,1 
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4440 

WW=3 

4450 ' 

4460 

4470 LOCATE 3,5,1:PRINT " 1. 
4480 PRINT TAB(5) " 2. 
4490 PRINT TAB(5) " 3. 
WEIGHT" 

4500 PRINT TAB(5) " 4. 
4510 PRINT TAB(5) " 5. 
4520 PRINT TAB(5) " 6. 
4530 PRINT TAB(5) " 7. 
4540 PRINT TAB(5) " 8 
4550 PRINT TAB(5) " 9. 
4560 PRINT TAB(5) "10. 
4570 PRINT TAB(5) "11. 
4580 PRINT TAB(5) "12. 
4590 PRINT TAB(5) "13. 
4600 PRINT TAB(5) "14. 
4610 PRINT TAB(5) "15. 
4620 PRINT TAB(5) "16. 
4630 PRINT TAB(5) "17. 
4640 PRINT TAB(5) "18. 
4650 PRINT TAB(5) "19. 
4660 GOTO 4770 

4670 CLS:LOCATE 5 

4680 PRINT TAB(5) "21. 
4690 PRINT TAB(5) "22. 
4700 PRINT TAB(5) "23. 
4710 PRINT TAB(5) "24. 
4720 PRINT TAB(5) "25. 
4730 PRINT TAB(5) "26. 
4740 PRINT TAB(5) "27. 
4750 PRINT TAB(5) "28. 
4760 GOTO 4770 

4770 


23,54,1:PRINT " 


23,00 ITPRINT 


IF WW-1 THEN GOTO 4460 ELSE IF WW=2 GOTO 4870 ELSE IF 
GOTO 5050 ELSE IF WW=4 THEN RETURN 440 


CLS: LOCATE 1,28,1:PRINT "CHAPTER THREE) DATASE aos 


ο ΕΕ πι O OD 


SPECIFICATION GROSS WEIGHT" 
ROUGH ESTIMATE GROSS WEIGHT" 
ESTIMATE OF MANUFACTURER'S EMPTY 


MAXIMUM TIP VELOCITY" 


ROTOR RADIUS" 

ROTATIONAL VELOCITY" 
THRUST COEBEERO PENE: 

BLADE SOLIDITY" 

NUMBER OF MAIN ROTOR BLADES" 
BLADE CHORD" 

BLADE ASPECT RATIO" 
AVERAGE LIFT COEFFICIENT" 
BLADE LIFT GURVE SECEE™ 
BLADE DRAG COEFFICIENT" 
DISC LOADING" 

MAXIMUM ADVANCE RATIO!" 
MAXIMUM BLADE LOADING" 
MAXIMUM FORWARD VELOCITY" 
NEXT PAGE" 


TIPLOSSU 

INDUCED POWER IN HOVER OGE" 
PROFILE POWER IN HOVER OGE" 
TOTAL POWER IN HOVER OGE" 
FIGURE OF MERIT" 

PERCENT INDUCED POWER’ 
INDUCED POWER IN HOVER IGE" 
TOTAL POWER IN HOVER IGE" 
RETURN TO DATA INPUT MENU" 


LOCATE 23,26,1: INPUT "WHICH DO TYOUIWAN 
ENTER" ;X:IF X=1 THEN LOCATE 3,55, Li 2NRUT SG ees 


":GOTO 4770 ELSE IF X-2 THEN LOCATE 
4,55,1:1NPUT GW1:LOCATE 23,54,1:PRINT " 


":GOTO 4770 ELSE 
4780 IF X23 THEN LOCATE 5,55,1:INPUP WEF COCATE 
":GOTO 4770 ELSE IF X-4 THEN LOCATE 
15GOTO 4770 


6,55,1:INPUT VTIPMAX:LOCATE 23 950 NB DET E 


ELSE IF X5 THEN LOCATE 959 α ΙΝΕ E 


23,54,1:PRINT " 


"GOTO 4770 ELSE 


4790 IF X=6 THEN LOCATE 8,55,1: INPUT OMEGA: LOCATE 


23,54,1:PRINT " 


":GOTO 4770 ELSE IF ΧΕΙ ΡΕ ο το. 
9,55,1: INPUT CT: LOCATE 23754) 1. ia 


":GOTO 4770 ΕΤΕ 


X-8 THEN LOCATE 10,55,1:INPUT SIGMA:LOCATE 23,54,1:PRINT l) 
":GOTO 4770 ELSE 
4800 IF X=9 THEN LOCATE 11,55,1:INPUL SS ΕΟ, EE 


23,54,1:PRINT " 


"3;GOTO 4770 ELSE is 


X=10 THEN LOCATE 
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ο 55 INPUT C:POCATE 23. 54,1:PRINT ÚÜ L ";GOTO 4770 ELSE 
IF X=11 THEN LOCATE 13,55,1:INPUT AR:LOCATE 23,54,1:PRINT 
I cCOTO 4770 ELSE 

ΞΕ X-IŻ THEN LOCATE 14,55,1:INPUT CL:LOCATE 


23,54,1:PRINT " ":GOTO 4770 ELSE IF X-13 THEN LOCATE 
15,55,1:1NPUT CLALPHA:LOCATE 23,54,1:PRINT "  ":GOTO 4770 
ELSE 

4820 IF X=14 THEN LOCATE 16,55,1:INPUT CDO: LOCATE 
23,54,1:PRINT " ":GOTO 4770 ELSE IF X=15 THEN LOCATE 
17,55,1:INPUT DL: LOCATE 23,54,1:PRINT " ":GOTO 4770 ELSE 


IF X=16 THEN LOCATE 18,55,1:INPUT MU: LOCATE 23,54,1:PRINT 
"  ":GOTO 4770 ELSE 

4830 IF X-17 THEN LOCATE 19,55,1:INPUT MBL:LOCATE 
23,54,1:PRINT " ":GOTO 4770 ELSE IF X-18 THEN LOCATE 
20,55,1:INPUT MAXFVEL: LOCATE 23;54,1:PRINT " ":GOTO 4770 
ELSE IF X-19 GOTO 4670 ELSE 

4840 IF X=20 THEN LOCATE 5,55,1:INPUT PIN: LOCATE 
23,54,1:PRINT " ":GOTO 4770 ELSE IF X=21 THEN LOCATE 
6,55,1:1NPUT PIN:LOCATE 23,54,1:PRINT " ":GOTO 4770 ELSE 
IF X222 THEN LOCATE 7,55,1:1NPUT PO:LOCATE 23,54,1:PRINT " 
":GOTO 4770 ELSE 

4850 IF X=23 THEN LOCATE 8,55,1:INPUT PT: LOCATE 
23,54,1:PRINT " ":GOTO 4770 ELSE IF X-24 THEN LOCATE 
9,55,1:INPUT FM:LOCATE 23,54,1:PRINT " ":GOTO 4770 ELSE 
IF X225 THEN LOCATE 10,55,1:1NPUT PERINDP:LOCATE 
23,54,1:PRINT " ":GOTO 4770 ELSE 

4860 IF X=26 THEN LOCATE 11,55,1:INPUT PINI: LOCATE 
23,54,1:PRINT " ":GOTO 4770 ELSE IF X=27 THEN LOCATE 
12,55,1:INPUT PTI: LOCATE 23,54,1:PRINT " ":GOTO 4770 ELSE 
IF X=28 THEN GOTO 4370 

4870 CLS: LOCATE 1,30,1:PRINT "WEIGHT ESTIMATION 

TABLE": LOCATE 2,42,1:PRINT "------------ ITERATION ------- 
----"";LOCATE 3,42,1:PRINT "FIRST SECOND 

THIRD": LOCATE 4,1,1:PRINT "1. ROTOR:" 

4880 PRINT "2. TAIL ROTOR:":PRINT " 

STRUCTURE: ":PRINT "3. BODY:":PRINT "4. LANDING 
GEAR:":PRINT "5.  NACELLE:" 

4890 PRINT "6. PROPULSION ENGINE:":PRINT TAB(16) 
"DRIVE:":PRINT TAB(16) "FUEL TANKS:" 

4900 PRINT "7. FLIGHT CONTROLS:":PRINT "8. AUXILLARY 
POWER:":PRINT "9. INSTRUMENTS: " 

4910 PRINT "10. HYDRAULICS:":PRINT "11. ELECTRICAL:": PRINT 
"12. AVIONICS:":PRINT "13. FURNISHINGS:" 

4920 PRINT "14. AIR & ICE:":PRINT "15. LOAD & 
HANDLING:":PRINT "16. EXIT TO DATA INPUT MENU" 

4930 LOCATE 23,15,1:1NPUT "COMPONENT NUMBER";I:IF I«1 THEN 
GOTO 5030 ELSE IF I>16 GOTO 5030 ELSE IF I=16 THEN GOTO 
4420 ELSE LOCATE 23,40,1:INPUT "WHICH ITERATION" ;N2:IF 
N2<1 THEN GOTO 5030 ELSE IF N2>3 GOTO 5030 ELSE 

4940 AS="A":IF I=2 THEN LOCATE 23,64,1:INPUT "R OR S";A$ 
ELSE IF I=6 THEN LOCATE 23,64,1:INPUT "E,D OR F";A$ 
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4950 IF AS«"A" THEN GOTO 5030 ELSE ΙΕ Δ5» εν ο E GR 
4960 I2=0:13=0:IF AS="R" THEN I2=0 ELSE IF AS="r" THEN 
I2=0 ELSE IF AS="S" THEN I2=1 ELSE IF AS="s" THEN I2=1 
ELSE ΤΕ AS="E"t THEN I2=0 ELSE IF AS="te" THEN I2=0 ELSE IF 
AS="D" THEN I2=1 ELSE IF AS="d" THEN I2=1 ELSE IF AS="F* 
THEN I2=2 ELSE IF AS="£" THEN 

4970 IF AS="f£" THEN I2=2 

4980 IF I<3 THEN I3=3 ELSE IF I<7 THEN I3=4 ELSE I3=6 
4990 I1l=It+tI2+I3:IF N2=1 THEN LOCATE 11,40,1 ELSE IF NZo2 
THEN LOCATE I1,54,1 ELSE IF N2=3 THEN LOCATE Il,69,1 
5000 IF AS="R" THEN INPUT W2A(N2) ELSE IF A$-"S" THEN 
INPUT W2B(N2) ELSE IF AS="E" THEN INPUT W6A(N2) ELSE IF 
AS="D" THEN INPUT W6B(N2) ELSE IF AS="F" THEN INPUT 
W6C(N2) ELSE INPUT W(I,N2) 

5010 LOCATE 23,32,1:PRINT " -"SLOCATE 23,57,1:PRINT " 
" 

5020 GOTO 4930 

5030 LOCATE 25,20,1:PRINT "your input is not within του... 
try again'":FOR I-1 TO 2500:NEXT I:LOCATE 23,32,1:PRINT " 
":LOCATE 23,57,1:PRINT " ": LOCATE 
25,20,1:PRINT fl 

"t 


5040 GOTO 4930 

5050 CLS:LOCATE 10,10,1:INPUT "ENTEBSPHENSNUPMSERESB 
AIRSPEEDS YOU HAVE CALCULATIONS FOR";LL:LOCATE 

12,10,1: PRINT "IF YOU DO NOT HAVE AN EBNTRY FOR AWTABKEE 
ITEM JUST HIT THE ENTER KEY": LOCATE Το 1ο ΤΕΙ ΠΕ... 
CURSOR WILL MOVE TO THE NEXT ENTRY Peri 

5060 GOSUB 60:KK=1:GOTO 5110 

5070 CLS:LOCATE 10,15,1:INPUT WDO YOU HAVE ANY ENTRIF SEED 
SPECIFICATION ALTITUDE(Y/N)";BS:IF BS="Y"_ THEN GOTO ese 
ELSE IF BS="y" GOTO 5090 ELSE IF BS="N" GOTO GOTO 4420 
ELSE IF BS="n"*" GOTO 4420 ELSE 

9080 LOCATE 23,27,1:PRINT "vou mUSU veneer nee. 

again" :COTO 5070 

5090 LOCATE 12,15,1:INPUT "ENTER SPECIFICA RTON 

ALTITUDE" ;ALT: LOCATE 14,15,1:INPUT "ENTER SPECIFICA TEDN 
TEMPERATURE"; TEMP: LOCATE 16,15,1:INPUT “ENTER NUMBERS O 
AIRSPEEDS YOU HAVE CALCULATIONS FOR";LL:KK-22:GOTO 5110 
5100 IF KK22 THEN LOCATE 4,30,1: PRINTS SPEESTDESZ 7 
ALTITUDE": LOCATE 5,18,1:PRINT “ALTITUDE =" ALL. hocks 
5735, L PRINT ET TEMPERATURE z";TEMP:LOCATE 
5600, 1: PRINT SY DEC SET 

5110 CLS:LOCATE 2,33,1:PRINT "MAIN ΚΟΠΕΙ ΤΕ 

5120 IF KK=1 THEN LOCATE 4,32,1: PRINT "STANDARD SEA 

LEVEL" :LOCATE 5,20,1:PRINT “ALTITUDES FORMI TEMPERATURE 
= 59 DEG. FPF! ELSE 

5130 IF KK=2 THEN LOCATE 4,30,1: PRINT ΤΕΕ τι 
ALTITUDE": LOCATE 5,18,1:PRINT "ALTITUDE =" Alt T Oo τ. 
543571: PRINT VET TEMPERATURE z";TEMP: LOCATE 

5, 60, 1: BRENT DEC EN 
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5140 LOCATE 7,29,1:PRINT "----------------- POWER -------- 


---------- ":LOCATE 9,8,1:PRINT "AIRSPEED TIP 
INDUCED PROFILE PARASITE TOTAL" 

5150 LOCATE 10,9,1:PRINT "(knots) MACH (SHP) 
(SHP) (SHP) (SHP)" 


5160 K-12:I-0:FOR L-1 TO LL:LOCATE K,8,1:1NPUT O(L):LOCATE 
K,18,1:INPUT TM(KK,L):LOCATE K,28,1:1NPUT 
PINF(KK,L):LOCATE K,40,1:1NPUT POF(KK,L):LOCATE 
K,52,1:01NPUT PPF(KK,L) 

5170 LOCATE K,64,1:1NPUT PTF(KK,L):K-K-1:NEXT L:IF KK-1 
THEN GOTO 5070 ELSE RETURN 
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F. CHAPTER FOUR 


JO KEY (Symon 

20 esee se de se ee e e e e e e ke ke e ke ke ke e e e e e e e e e e eee eee eee e eek ke e e ke ke ke ke ke ke 
S0 

40 ' TAIL ROTOR DESIGN 

50 
JEEIITTITTTTTITTIIIETITITIETEEEIITTTTTEITETITITITITITITEIIIITITTIT 
os! 

80 *** CHAPTER FOUR MAIN PROGRAM *** 

90 ' 

TOO! 

110 PRINT "~C=ALL/":PRINT "~L=CH4/" 

120 KEY(9) ON:ON KEY(9) GOSUB 130 

130 COLOR 1,1,1:CLS:LOCATE 23,09 0 EPA ID 
!-W-CAMAIN/":INPUT;"",X 

140 COLOR 15,1,1:IF X=1 THEN GOSUB 430 ELSE IF X=2 THE 
GOSUB 540 ELSE IF X=3 THEN GOSUB 630 ELSE IF X=4 THEN 
GOSUB 820 ELSE IF X=5 THEN GOSUB 1040 ELSE IF X=6 THEN 
GOTO 430 ELSE IF X=7 THEN GOSUB 1900 ELSE 

150 IF X=8 THEN GOSUB 1440 ELSE IF X=9 THEN GOSUB 1090 
ELSE IF X=10 THEN GOSUB 180 ELSE IF X=l1l THEN CLs: LOCATE 
23,1,0: PRINT "-W-LOAD/":CHAIN Πρι AD 

GO? 
το” 
105 
190 1 
200 ' 
210 CLS:LOCATE 23,1,0:PRINT "~W=DISK/":GOSUB 17602 b AN 
25,270 Il TP" 1: LOCATE 
23,1,0: PRINT 'l-WESAVE/U 

220 A(1)=SGW:A(2)=GW1:A(3) =WE:A(4) =VTIPMAX:A(5)=R:A(6)= 
OMEGA:A(7)=CT:A(8)=SIGMA:A(9)=B:A(10) =C:A(11)=AR:A(12)=CL: 
A(13) =CLALPHA:A(14)=CDO:A(15)=DL:A(16) =MBL:A(17)=MU:A(18)= 
MAXFVEL:A(19) =TIPLOSS:A(20)=PIN:A(21)=P0:A(22)=PT:A(23)=HP 
:A(24) -PERINDP:V-24 

230 FOR I=1 TO 3:FOR J-1 TO 15:VzV-«1:Q2J-424:A(V)-2W(Q-24,1) 
:NEXT J,I:FOR I-1 TO 3:A(1I+69)=W2A(I) :A(I+72)=W2B(I): 
A(IT75)-2W6A(I):A(I-T78)-2W6B(I):A(I-T81)-2W6C(I):NEXT 
I:A(85)=N: A(86)=WE(N) :A(87)=GW(N) :A(88) =DL(N- 

1) :A(89)=FM(N-1) :A(90)= FL:A(91)=IRLG:A(92) =NW 

240 A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96) =FUEL:A(97)= 
PEOPLE:A(98)=UL:A(99)=SPECIAL:A(100) =ENGINE:A(101) =ZZ:A(10 
2)=AB:A(103)=GR:A(104) =RH:A(105) =H:A(106) =D:A(107) =PINI:A( 
108)=PTI:A(109) =M:A(110) =EFPA:A(111)=RHO(2) :A(112)=MM:A(11 
3)=M(2) :A(114)=CRUISEV 

250 A(115)=CRU:A(116)=CRU2:A(117) =MAXF:A(118)=MAXF2:A(119) 
=MAXCRU1:A(120)=ALT:A(121)=TEMP:A(122) =LL:A(123)=TR:A(124) 
=TRPM:A(125) =OMEGAT:A(126)=TCDO:A(127)=BT:A(128) =TAR:A(129 
)=TRC:A(130)=TTR:A(131) =CTTR:A(132)=TRB:A(133) =SIGMAT:A(13 
4)=V:A(135)=SPAN 


*** STORE DATA ON FILE DISK *** 
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260 A(136)=S:A(137)=SWP:A(138)=SWEEP:A(139)=LAVS:A(140)= 
VSAR:A(141)-BETA2:A(142)-T:A(143)-T2:A(144)-T3:A(145)-CLAT 
R:A(146)-ALTR:A(147)-ALTRDEG:A(148)-TL:G-149 

270 LL-LLHĦI:FOR I-1 TO LL:A(G)-0(I):G-GHI:NEXT I:G-GHIHLL: 
G1=G+1+2*LL: G2=G1+1+2*LL: G3=G2+1+2*LL: G4=G3+1+2*LL 

280 FOR I=1 TO 2:FOR J=1 TO LL:A(G)-PINF(I,J) 
:A(Gl1)-POF(I,J) :A(G2)-PPF(I,J):A(G3)2PTF(I,J):A(G4)-TM 
(I,J) :G=G+1:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT J,I 

290 G5=G64+2 :G6=G5+2 :G7=G6+2: FOR I=1 TO 2:A(G4)-PITR(I): 
A(G5)=POTR(I) :A(G6)=PTTR(I) :A(G7) =CLTR(I) :G4=G4+1:G5=G5+1: 
G6=G6+1:G7=G7+1:NEXT I:G8=G7+1+2* (LL-1) :G9=G8+1+2* (LL-1) 
300 FOR I-1 TO 2:FOR J-2 TO LL:A(G7)-PITRF(I,J):A(G8)- 
POTRF (I,J) :A(G9)=PTTRF (I,J) :G7=G7+1:G8=G8+1:G9=G9+1:NEXT 
J,1I:G1l0=G9+1+2*LL:G11=G10+1+2*LL: G12=G11+1+2*LL: G13=G12+1+ 
2*LL: G14=G6G13+1+2*LL 

310 FOR I-1 TO 2:FOR J-1 TO LL: A(G9)-TTM(I, J):A(G10)= 

TRI (I,J) :A(G11)=L(1I,J) :A(G12) =VERSTAB(I,J) :A(G13) =PTTRVSF ( 
I,J):A(G14)=PITRFI(1I,J) :G9=G9+1:G10=G10+1:G11=G11+1:G12=G1 
2+1:G13=G13+1:G614=G14+1:NEXT J,I 

320 LL(2)=162+(32*LL) :LL=LL-1 

330 Z-4:0PEN "B:DATAL" FOR OUTPUT AS #1:PRINT #1, Z 

340 FOR I-1 TO 10:PRINT #1, LL(I):NEXT I:CLOSE #1 

350 OPEN "B:DATA4" FOR OUTPUT AS #1:FOR I=1 TO LL(2):PRINT 
fl, A(I):NEXT I:CLOSE #1:RETURN 120 

meo ' 

370 ' 

aso ' 

390 ' 

400 ' *** SECTION 4.1 *** 

410 | 

420 ' 

430 CLS:LOCATE 5,30,1:PRINT ÜW"*** SECTION 4.1 ***";LOCATE 
EME2/71:PRINT "-PRELIMINARY SIZING OF TAIL ROTOR-" 

440 TR = 1.3*SQR(SGW/1000):TRPM = 135*OMEGA/PI:OMEGAT 
=4.5*OMEGA: TCDO=CDO 

450 LOCATE 10,25,1:PRINT "TAIL ROTOR RADIUS=";TR: LOCATE 
eye, lsPRINT “TAIL ROTOR RPM=";TRPM: LOCATE 14,25,1:PRINT 
E UL ROTOR CDO="sTCDO: LOCATE 16,25,1:INPUT "ENTER 
ESTIMATE OF TAIL ROTOR ASPECT RATIO";TAR: TRC = TR/TAR 

460 LOCATE 23,35,1:INPUT “ANY CHANGES (Y/N)";AS:IF AS="y" 
THEN GOTO 450 ELSE IF AS="y" GOTO 450 ELSE IF AS="N" GOTO 
480 ELSE IF AS="n" GOTO 480 ELSE 

470 LOCATE 25,27,1:PRINT "you must enter (y/n) try 
again":GOTO 460 

480 IF X=6 THEN GOTO 500 ELSE RETURN 120 

490 ' 

500. ' 
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510 ' *** SECTION 4.2 *** 

520 ! 

530 ' 

540 CLS:LOCATE 5,30,1:PRINT "*** SECTION 4.2 ***'":LOCATE 
7,21,1:PRINT "-TAIL ROTOR POWER REQUIRED AT HOVER-" 

550 LOCATE 10,8,1:PRINT "USING HD-7 MAKE AN ESTIMATE OF 
THE DISTANCE FROM THE CENTER OF TAIL":LOCATE 11,8,1: INPUT 
"ROTOR THRUST TO THE CENTER OF GRAVITY (ie. tail 

length) '';TL: LOCATE 13,20,1:INPUT "ENTER NUMBER OF TAIL 
ROTOR BLADES"; BT 

560 FOR I-1 TO 2:RHO(1)=RHO: TRA=PI*TR‘2:TRVT=OMEGAT*TR 

570 TTR=(PT*550) / (OMEGA*TL) : CTTR(I)=TTR/ (PI* (TR*4) *RHO(I) * 
(OMEGAT^2)):TRB-1-((SQR(2*CTTR(I)))/BT):PITR(I)- 

( ((TTR^1.5) /SQR(2*PI*(TR^2) *RHO(I)))/TRB)/550:SIGMAT-(BT*T 
RC)/(PI*TR):POTR(I)-(SIGMAT*TCDO*RHO(I)*TRA*TRVT^3)/4400:P 
TTR(I)=PITR(I)+POTR(I) 

590 NEXT I:IF TT-1 THEN GOTO 670 ELSE 

600 LOCATE 15,20,1:PRINT "TAIL ROTOR POWER IN HOVER 
=";PTTR(1):LOCATE 17,20,1:PRINT "TAIL ROTOR INDUCED POWER 
=";PITR(1):LOCATE 19,20,1:PRINT "TAIL ROTOR PROFILE POWER 
="";POTR(1):GOSUB 1760:IF X=6 THEN GOTO 610 ELSE RETURN 120 
610 ' 

620 ! 

630 ! *** SECTION 4.3 *** 

640 ' 

650 '. 

660 CLS:LOCATE 2,30,1:PRINT "*** SECTION 4.3 ***"; LOCATE 
3,16,1:PRINT "-TAIL ROTOR POWER REQUIRED FOR FORWARD 
FLIGHT-"': LOCATE 15,35,0:PRINT "~W=COMP/" ; VITR=OMEGAT*TR 
670 TRA=PI* (TR*2) :RHO(1)=RHO:LL=LL+1:FOR I=l TO 2:FOR J=1 
TO LL: CTTR(I)=PTF(1I,7) *550/ (OMEGA*TL*RHO (I) *TRA* (VTTR) 22) 
:TIP-1-(SQR(2*CTTR(I))/BT):VF-21.687778*O(J) : VITR-SQR((- 
(VF^2)/2)* SQR((((VF^2)/2)^2)«*((PTF(I,J)*550)^2)/((2*TRA* 
RHO(I)* TL*OMEGA)^2))) 

680 MU2-VF/(OMEGAT*TR) : PITRF(I,J)-(((PTF(I,J)*550)/(TL* 
OMEGA) ) *VITR) /(550*TIP) : POTRF (I,J) =SIGMAT*CDO*RHO (I) *TRA* ( 
(OMEGAT*TR) 43) *(14+(4.3%* (MU2%2) ))/4400 

690 PTTRF(I,J)=PITRF(I,J)+POTRF (I,J) :NEXT J,I:LL=LL-1: FOR 
I-1 TO 2:PTTRF(I,1)-PTIR(I):PITRF(I,1)-PITR(I) POTRE GĦAN 
-POTR(I):NEXT I 

700 FOR KK-1 TO 2:GOSUB 710:NEXT KK:IF X-8 THEN RETURN 
1470 ELSE IF AP-1 THEN LPRINT CHR$ (12):RETURN 1090 ELSE 
IF AQ-1 THEN AQ-0:GOTO 120 ELSE IF X=6 GOTO 800 ELSE GOTO 
120 

710 CLS:LOCATE 2,33,1:PRINT "TAIL ROTOR POWER" 

720 IF KK-1 THEN LOCATE 4,32,1:PRINT "STANDARD SEA 
LEVEL":LOCATE 5,20,1:PRINT "ALTITUDE - O FT 

TEMPERATURE = 59 DEG. F" ELSE | 

730 IF KK=2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 
ALTITUDE":LOCATE 5,18,1:PRINT "ALTITUDE -";ALT:LOCATE 
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5,35,1:PRINT "FT TEMPERATURE ="; TEMP: LOCATE 
5,60,1:PRINT "DEG. F" 


740 LOCATE 7,39,1:PRINT "----------- POWER ---------- 
":LOCATE 9,17,1:PRINT "AIRSPEED TIP INDUCED 
PROFILE TOTAL" 

750 LOCATE 10,18,1:PRINT "(knots) MACH (SHP) 
(SHP) (SHP) " 


760 ASzs"'Sdd.4":BS$z"4.4$44'":C$2"434434.424" : K212: LOCATE 

ieee, l;:PRINT USING A$;0(1):LOCATE 12,29,1:PRINT USING 
moi (KK, 1) :LOCATE 12,38,1:PRINT USING C$;PITR(KK) : LOCATE 
12,49,1:PRINT USING C$;POTR(KK) : LOCATE 12,60,1:PRINT USING 
@o°>PTTR(KK) :K=13:FOR L=2 TO" LL 

770 LOCATE K,18,1:PRINT USING AS$;0(L):LOCATE K,29,1:PRINT 
USING BS;TTM(KK,L): LOCATE K,38,1:PRINT USING 
C$;PITRF(KK,L):LOCATE K,49,1:PRINT USING 

eo, POTRE (KK,L):LOCATE K,60,1:PRINT USING C$;PTTRF(KK,L) 
780 K=K+1:NEXT L | 

790 IF AP-1 THEN LCOPY:RETURN ELSE GOSUB 1760:RETURN 

800 ' 

πο ! 
ENS ! 
830 ' 
840 ' 
850 CLS: LOCATE 2,30,1:PRINT '"*** SECTION 4.4 ***":LOCATE 
3,29,1:PRINT "-VERTICAL STABILIZER-":LOCATE 5,5,1:PRINT 
"ENTER THE AIRSPEED FOR VERTICAL STABILIZER TO UNLOAD THE 
TAIL ROTOR! 

860 LOCATE 6,18,1:INPUT "(airspeed must be of a 20 knot 
umorement)':V:LOCATE 8,15,1:PRINT “TAIL ROTOR SOLIDITY 

="; SIGMAT 

670 LOCATE 9,15,1:INPUT "FROM FIGURE 4.1 SELECT AND ENTER 
THE PLANFORM AREA";S:LOCATE 11,15,1:INPUT "ENTER SPAN OF 
MERTICAL STABILIZERW;SPAN:LOCATE 13,15,1:INPUT "ENTER 
SWEEP OF VERTICAL STABILIZER AT MID- 

CHORD" ; SWP: SWEEPZSWP*PI/180 

880 LOCATE 15,15,1: INPUT "ENTER LEVER ARM FOR VERTICAL 
STABILIZER"; LAVS 

890 FOR I-1 TO LL:IF V-O(I) THEN VI=I:GOTO 900 ELSE NEXT I 
900 VF1-2-(O(VI))*1.687778:FOR I-1 TO 
2:LLl(I)-(((PTF(I,VI)*550)/OMEGA)/LAVS):CLTR(I)-2(2*L1(1))/( 
(VF1^2)*S*RHO(I)):NEXT I:VSAR-((SPAN)^2)/S 

910 BETA2-1-((VF1/A)^2):T-(VSAR*2*PI):T1-2(1-((TAN(SWEEP)) 
^2) /BETA2):T2- ( (VSAR^2) *BETA2) :T3=2+SQR(T1*T2+4) : CLATR= 
T/T3: TA-(TAN(SWEEP) )^2: TEFPA-(8.999999E-03-4CLTR(1)^2/ 
(PI*VSAR)) *S:TPP-RHO(1)*(V*1.687778)^3*TEFPA/1100 

920 ALTR-(CLTR(1)-.4)/CLATR:ALTRDEG-ALTR*(180/PI):LOCATE 
17,15,1:PRINT "ANGLE OF ATTACK FOR VERTICAL STABILIZER 


*** SECTION 4.4 *** 


(deg) -2";USING "Z£4.424";ALTRDEG:LOCATE 19,15,0:PRINT 
"EQUIVALENT FLAT PLATE AREA OF VERTICAL STABILIZER 
=" ; TEFPA 


9g 


930 LOCATE 21,15,0:PRINT "ADDITIONAL PARASITE. [Gy ees 

THIS AIRSPEED =";TPp 

940 LOCATE 23,30,1:INPUT "ANY CHANGES (Y/N)";ES:IF ES="y" 

THEN GOTO 850 ELSE IF ES="y" GOTO 850 ELSE IF ES="N" THEN 

GOTO 960 ELSE IF ES="n" THEN GOTO 960 ELSE 

950 LOCATE 25,25,1:PRINT "you must enter (wn) ery 

again":LOCATE 22,47, 1:PRINT I! ":GOTO 940 

960 LOCATE 25,25,1:PRINT " 

n.LOCATE 15,35,0:PRINT '-W-COMP/'W:FOR I-1 TO 2:FOR JZS 

LL: VF=0(J) *1.687778:L(1,J)=(.5) *RHO(1I) *S* (VF%2) *CLIR( Djs 

RSTAB(I,J)-(L(I,J)*OMEGA*LAVS)/550:NEXT J,I 

970 FOR I-1 TO 2:FOR J-1 TO LL:PTFS5(I,J)-ABS(PTF(I,J)- 

VERSTAB(I,J)):NEXT J,I 

980 TRA-PI*(TR^2):RHO(1)Z2RHO:FOR I-1 TO 2:FOR J-1 TO LL:VF 

—1.687778*O0(J):VITRI1-SQR((-(VF^2)/2)-SQR((((VF^2)/2)^2)- 

( (PTF5(I,J)*550)^2)/((2*TRA*RHO(I)*TL*OMEGA)^2))):MU2-VF/( 

OMEGA*R) : PITRFI(I,J)-(((PTF5(I,J)*550)/(TL*OMEGA) ) *VITR1)/ 

550 

990 TRT(I,J)Z(PTF(I,J)*550)/(TL*OMEGA) 

1000 PTTRVSF(I,J)ePITRFI(I,J)TPOTRF(I,J):NEXT J,I:GOSUB 

1790 

1010 IF X=6 GOTO 1020 ELSE GOTO 120 

1020 1 

ποσο. 
' 
' 


w 


1040 
1050 
1060 ' 
1070 CLS:LOCATE 5,30,1:PRINT '"*** SECTION 4.5 ***":LOCATE 
6,25,1:PRINT "-TAIL ROTOR TIP MACH NUMBER-": LOCATE 
23,1,0:PRINT "~W=COMP/" 

1080 M(1)=A:FOR I=1 TO 2:FOR J=1 TO LL: VF=0(J) *1.687778: 
TTM(I,J)=((OMEGAT*TR)+VF) /M(I) :NEXT J,I:AQ=1:GOSUB 700 


*** SECTION 4.5 *** 


1090 ' *** PRINT OUT DATA xxx 
1100 ' 

1110 ' 

1120 COLOR 1,1,1:CLS:LOCATE 23,1,0:PRINT 
"-W-CAPRINT/":INPUT;"",PR:COLOR 15,1,1 


1130 AP=0:IF PR=1 THEN GOTO 1140 ELSE IF PR=2 THEN 
AP=1:GOSUB 1790 ELSE IF PR=3 THEN AP=1:GOSUB 700 ELSE IF 
PR=4 THEN AP=0:RETURN 120 

1140 CLS:LOCATE 23,1,0:PRINT "-W-PRINTER/":GOSUB 

1760: LOCATE 25527 ο PET TE 

" 


1150 LPRINT TAB(25) "TABLE OF CHAPTER FOUR RESULTS" 
1160 LPRINT 

1170 LPRINT 

1180 LPRINT 

1190 LPRINT TAB(12) "TAIL ROTOR RADIUS";TAB(57) TR 
1200 LPRINT TAB(12) "TAIL ROTOR ROTATIONAL 
VELOCITY" ;TAB(57) OMEGAT 

1210 LPRINT TAB(12) "TAIL ROTOR RPM";TAB(57) TRPM 
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1220 LPRINT TAB(12) "TAIL ROTOR THRUST 

COEFFICIENT";TAB(57) CT 

1230 LPRINT TAB(12) "TAIL ROTOR BLADE SOLIDITY";TAB(57) 

SIGMAT 

1240 LPRINT TAB(12) "NUMBER OF TAIL ROTOR BLADES";TAB(57) 

BT 

1250 LPRINT TAB(12) "TAIL ROTOR BLADE CHORD";TAB(57) TRC 

1260 LPRINT TAB(12) "TAIL ROTOR BLADE ASPECT 

RATIO";TAB(57) TAR 

1270 LPRINT TAB(12) "TAIL ROTOR BLADE DRAG 

COEFFICIENT" ;TAB(57) TCDO 

1280 LPRINT TAB(12) "TAIL ROTOR TIPLOSS";TAB(57) TRB 

1290 LPRINT TAB(12) "TAIL ROTOR INDUCED POWER IN HOVER 

OGE";TAB(57) PITR(1) 

1300 LPRINT TAB(12) "TAIL ROTOR-PROFILE POWER IN HOVER 

OGE";TAB(57) POTR(1) 

1310 LPRINT TAB(12) "TAIL ROTOR TOTAL POWER IN HOVER 

OGE";TAB(57) PTTR(1) 

1320 LPRINT TAB(12) "TAIL ROTOR INDUCED POWER IN HOVER 

IGE";TAB(57) PITR(2) 

1330 LPRINT TAB(12) "TAIL ROTOR TOTAL POWER IN HOVER 

IGE" ;TAB(57) PTTR(2) 

1340 LPRINT TAB(12) "TAIL LENGTH";TAB(57) TL 

1350 LPRINT TAB(12) "VERTICAL STABILIZER PLANFORM 

AREA";TAB(57) S 

1360 LPRINT TAB(12) "VERTICAL STABILIZER SPAN";TAB(57) 

SPAN 

1370 LPRINT TAB(12) "VERTICAL STABILIZER SWEEP AT MID- 

CHORD" ;TAB(57) SWP 

1380 LPRINT TAB(12) "VERTICAL STABILIZER ASPECT 

RATIO" ;TAB(57) VSAR 

1390 LPRINT TAB(12) "VERTICAL STABILIZER ANGLE OF 

ATTACK" ;TAB(57) ALTRDEG 

1400 LPRINT TAB(12) "VERTICAL STABILIZER COEFFICIENT OF 

LIFT" ;TAB(57) CLTR(1) 

1410 LPRINT TAB(12) "VERTICAL STABILIZER LIFT CURVE 

SLOPE" ;TAB(57) CLATR 

1420 LPRINT TAB(12) "LEVER ARM OF VERTICAL 

STABILIZER" ;TAB(57) LAVS 

1430 LPRINT CHRS (12):GOTO 1120 
! 


1440 *** PRINT OUT DATA *** 
1450 ' 

1460 ' 

1470 COLOR 1,1,1:CLS:LOCATE 23,1,0:PRINT 
"-W-CARESULT/":INPUT;"",PR:COLOR 15,1,1 


1480 AP=0:IF PR=1 THEN GOTO 1490 ELSE IF PR=2 THEN GOSUB 
1790 ELSE IF PR=3 THEN GOSUB 700 ELSE IF PR=4 THEN RETURN 
120 

meoo CLS: LOCATE 2,25,1:PRINT "TABLE OF CHAPTER FOUR 

ES SULTS" 

moo LOCATE 5,12,1:PRINT "TAIL ROTOR RADIUS";TAB(57) TR 


TOI 


1510 PRINT TAB(12) "TAIL ROTOR ROTA ika B 
VELOCITYÜW:;TAB(57) OMEGAT 

1520 PRINT TAB(12) "TAIL ROTOR RPM";TAB(57) TRPM 

1530 PRINT TAB(12) "TAIL ROTOR THRUST COBRPFICIENT (ania 
CTTR(1) 

1540 PRINT TAB(12) 'W'TAIL ROTOR BLADE SOLDI ΙΤ,» 
SIGMAT 

1550 PRINT TAB(12) "NUMBER OF TAIL ROTOR BLADES STABÜUSEN 
BT 

1560 PRINT TAB(12) "TAIL ROTOR BLADE CHORD"; TAB( 57) eee 
1570 PRINT TAB(12) "TAIL ROTOR BLADE ASPECT RATIO"; TAB(57) 
TAR 

1580 PRINT TAB(12) "TAIL ROTOR BLADE DRAG 

COEFFICIENT" ;TAB(57) TCDO 

1590 PRINT TAB(12) "TAIL ROTOR TIPLOSS" Top τι 

1600 PRINT TAB(12) "TAIL ROTOR INDUCED POWER IN HOVER 
OGE";TAB(57) PITR(1) 

l610 PRINT TAB(12) "TAIL ROTOR PROFIEE POWER EN ο. 
OGE";TAB(57) POTR(1) 

1620 PRINT TAB(12) "TAIL ROTOR TOTAL POWER IN HOVER 
OGE";TAB(57) PTTR(1) 

1630 PRINT TAB(12) “TAIL ROTOR INDUCED POWER IN HOVER 
IGE";TAB(57) PITR(2) 

1640 PRINT TAB(12) "TAIL ROTOR TOTAL POWER IN HOVER 
IGE";TAB(57) PTTR(2) 

1650 PRINT TAB(12) "TAIL LENGTH";TAB(57) TL 

T660 GOSUB 1760 

1670 CLS:LOCATE 5,12,1:PRINT TAB(12) "VERTICAL STABIL H 
PLANFORM AREA";TAB(57) S 

1680 PRINT TAB(12) "VERTICAL STABILIZER SPAN";TAB(57) SPAN 
1690 PRINT TAB(12) “VERTICAL STABILIZER SWEEP Ala TES 
CHORD" ;TAB(57) SWP 

1700 PRINT TAB(12) "VERTICAL STABILIZER ADF FE T 
RATIO";TAB(57) VSAR 

1710 PRINT TAB(12) "VERTICAL STABILIZER ANCEETGCE 
ATTACK";TAB(57) ALTRDEG 

1720 PRINT TAB(12) "VERTICAL STABILIZER COEFFICIENTE CH 
LIFT";TAB(57) CLTR(1) 

1730 PRINT TAB(12) "VERTICAL STABIDBIZERODPRDILIOEDOM 
SLOPE";TAB(57) CLATR 

1740 PRINT TAB(12) "LEVER ARM OF VERTICAL 

STABILIZER“; TAB(57), EAVS 

1750 GOSUB 1760:GOTO 1470 

1760 IF AP=1 THEN LOCATE 25,79,0 ELSE LOCATE 5 ο) ο. 
"press any key to continue" 

1770 AS-INKEYS:IF AS-2""' THEN 775 

1/80 RETURN 

1790 FOR KK-1 TO 2:GOSUB 1800:NEXT KK:IF AP-T'THENTEPREMA 
CHRS (12):RETURN 1110 ELSE IF X=8 THEN RETURN 1470 ELSE 
RETURN 
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MGWOMEIS SĦEOCATE 2,20,1f?PRINTC"TAIL ROTOR POWER WITH 
VERTICAL STABILIZER" 

1810 IF KK-1 THEN LOCATE 4,32,1:PRINT "STANDARD SEA 
EBEVEL'U.LOCATE 5,20,1:PRINT "ALTITUDE = 0 FT 
TEMPERATURE = 59 DEG. F" ELSE 

ΙΕ KK=2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 


ALTITUDE": LOCATE 5,18,1:PRINT "ALTITUDE =";ALT: LOCATE 
5,35,1:PRINT "FT TEMPERATURE =";TEMP: LOCATE 
5,60,1:PRINT "DEG. F" 

1830 LOCATE 7,13,1:PRINT "----THRUST---- ------------- 
--------- POWER -------------------"iL0CATE 9,13,1:PRINT 
"TAIL VERT/ MAIN VERT/":LOCATE 10,3,1:PRINT 
"AIRSPEED ROTOR STAB ROTOR STAB INDUCED 
PROFILE TOTAL with v/s" 

1840 LOCATE 11,4,1:PRINT "(knots)  (1bf) (1bf) 

(SHP) (*SHP*)  (SHP) (SHP) (SHP) " 

1850 


ASz"i2)2.29":B$2"$4322.42":CS-"Dgd$.2":DS$-2"f $848 $898.95" LOCATE 
13,4,1:PRINT USING A$;O(1):LOCATE 13,12,1:PRINT USING 
B$;TRT(KK,1):LOCATE 13,21,1:PRINT USING B$;L(KK,1):LOCATE 
13,31,1:PRINT USING C$;PTF(KK,1):LOCATE 13,39,1:PRINT 
USING D$;VERSTAB(KK,1) 

1860 LOCATE 13,48,1:PRINT USING C$;PITR(KK) : LOCATE 
13,57,1:PRINT USING C$;POTR(KK) :LOCATE 13,69,1:PRINT USING 
C$; PTTR (KK) 

1870 K=14:FOR L=2 TO LL:LOCATE K,4,1:PRINT USING 
A$;O(L):LOCATE K,12,1:PRINT USING B$;TRT(KK,L):LOCATE 
K,21,1:PRINT USING B$;L(KK,L): LOCATE K,31,1:PRINT USING 
CS$;PTF(KK,L) : LOCATE K,39,1:PRINT USING D$;VERSTAB(KK,L) 
1880 LOCATE K,48,1:PRINT USING C$;PITRFI(KK,L) : LOCATE 
K,57,1:PRINT USING C$;POTRF(KK,L):LOCATE K,69,1:PRINT 
USING C$;PTTRVSF(KK,L):K-K*1:NEXT L 

1890 IF AP-1 THEN LCOPY:RETURN ELSE GOSUB 1760:RETURN 
1900 |! *** DATA INPUT *** 

T920 ' 

1920 ' 

1930 ' 

1940 COLOR 1,1,1:CLS:PRINT "-W-INPUT/":INPUT;"",WW:COLOR 
5,1,1 

1950 IF WW=1 THEN GOTO 1970 ELSE IF WW=2 GOTO 2570 ELSE IF 
WW=3 GOTO 2710 ELSE IF WW=4 THEN RETURN 120 ELSE 

1960 ! 

1970 CLS:LOCATE 2,25,1:PRINT "CHAPTER FOUR DATA INPUT" 
1980 LOCATE 5,12,1:PRINT "1. TAIL ROTOR RADIUS" 

1990 PRINT TAB(12) "2. TAIL ROTOR ROTATIONAL VELOCITY" 
2000 PRINT TAB(12) "3. TAIL ROTOR RPM" 

2010 PRINT TAB(12) "4. TAIL ROTOR THRUST COEFFICIENT" 
2020 PRINT TAB(12) "5. TAIL ROTOR BLADE SOLIDITY" 

2030 PRINT TAB(12) "6. NUMBER OF TAIL ROTOR BLADES" 
2040 PRINT TAB(12) "7. TAIL ROTOR BLADE CHORD" 

2050 PRINT TAB(12) "8. TAIL ROTOR BLADE ASPECT RATIO" 


"ος 


2060 
2070 
2080 
OGE" 
2090 
OGE" 
2100 
OGE" 
2110 
IGE” 
2120 
IGES 
2130 
2140 
2150 
2160 


PRINT 
PRINT 
PRINT 
ΓΙ 
PRINT 
PRINT 
PRINT 


PRINT 
PRINT 


LOCATE 23,26, αυ 


TAB (12) 
TAB (12) 
TAB (12) 
TAB (12) 
TAB(12) 
TAB (12) 
TAB (12) 


TAB (12) 
TAB(12) 


πο, 

"JO. 
RU 
ΠΟ. 
"yos 
"14. 
Mb 


116, 
tall 


TAIL ROTOR BLADE DRAG COEFFICIENT" 
TAIL ROTOR TIPCO Si 

TAIL ROTOR INDUCED POWER IN HOVER 
TAIL ROTOR PROFILE POWER IN HOVER 
TAIL ROTOR TOTAL POWER IN HOVER 
TAIL ROTOR INDUCED POWER IN HOVER 
TAIL ROTOR TOTAL POWER IN HOVER 
TAIL LENGTH 

CONTINUE" 


"WHICH DO YOU WANT TO ENTER";X 


IF X«1 OR X»17 THEN LOCATE 23,53,1:PRINT " 
":GOTO 2150 ELSE ON X GOTO 
2180,2190,2200,2210, 2220, 2230, 2240, 2250, 2260, 2270, 22 c10 nea 
0,23007231072920 29510 82:10 


2170 LOCATE 23750 I ERENT! ":GOTO 2150 
2180 LOCATE 5,57,1:INPUT TR:COTOP 0 

2190 LOCATE 6,57,1:INPUT OMEGAT:GOTO 2170 

2200 LOCATE 7,57,1:INPUT TRPM:GOTO 2170 

2210 LOCATE 8,57, 1:INPUT CT:COrT T- TS 

2220 LOCATE 9,57,1:INPUT SIGMAT:GOTO 2170 

2230 LOCATE 10,57,1:INPUT BP:GOTONP UIN 

2240 LOCATE 11,57,1:INPUT TRC:GOTO 2170 

2250 LOCATE 12,57,1:INPUT TAR:COTO I 

2260 LOCATE 13,57,1:INPUÚT TCDO:COTO DAO 

2270 LOCATE 14,57,1:INPUT TRB:COTOM2170 

2280 LOCATE 15,57,1:INPUT PITR(l):GOTO 21170 

2290 LOCATE 16,57,1:INPUT POTR(1):GOTO 2170 

2300 LOCATE 17,57,1:INPUT PTTR(1)) seeker ze 

2310 LOCATE 18,57,1:INPUT PITR(2):GOTO 2170 

2320 LOCATE 19,57,1:INPUT PTTR(2):COTOM T70 

2330 LOCATE 20,57,1:INPUTATI:GOJODPNMP G 

2340 GOTO 2350 

2350 CLS:LOCATE 5,12,1:PRINT TAB(I2) πο σι μυ 
STABILIZER PLANFORM AREA" 

2360 PRINT TAB(12) "19. VERTICAL STABILIZER SPAN" 

2370 PRINT TAB(12) "20. VERTICAL STABILIZER SWEEP AT MID- 
CHORD" 

2380 PRINT TAB(12) "21. VERTICAL STABILIZER ASPECT RATIO" 
2390 PRINT TAB(12) "22. VERTICAL STABILIZER ANGLE OF 
ATTACK" 

2400 PRINT TAB(12) "23. VERTICAL STABILIZER COEFFICIENT OF 
LIFT" 

2410 PRINT TAB(12) "24. VERTICAL STABILIZER LIFT CURVE 
SLOPE" 

2420 PRINT TAB(12) "25. LEVER ARM OF VERTICAL STABILIZER" 
2430 PRINT TAB(12) "26. RETURN TO DATA INPUT MENU" 


104 


ESIDESEOCATE-28726,1:1NPUT "WHICH DO YOU WANT TO 
ENTER" ; X:XX2X-17 

ESGOCIF X«18.0R X226 THEN LOCATE 23,53,1:PRINT " 

"*GOTO 2440 

2460 ON XX GOTO 

ο 24905250052510,;2520,2530,2540,2550,2560 

2470 LOCATE 23,53,1:PRINT " ":GOTO 2440 
2480 LOCATE 5,57,1:INPUT S:GOTO 2470 

2490 LOCATE 6,57,1: INPUT SPAN:GOTO 2470 

2500 LOCATE 7,57,1: INPUT SWP:GOTO 2470 

2510 LOCATE 8,57,1:INPUT VSAR:GOTO 2470 

2520 LOCATE 9,57,1:INPUT ALTRDEG:GOTO 2470 

ου TOCATE 10,57,1:INPUT CLTR(1):GOTO 2470 

2540 LOCATE 11,57,1: INPUT CLATR:GOTO 2470 

2550 LOCATE 12,57,1:INPUT LAVS:GOTO 2470 

2560 GOTO 1900 

2570 CLS:LOCATE 10,10,1:INPUT "DO YOU HAVE ENTRIES FOR SEA 
LEVEL (Y/N)";AS:IF AS="Y" THEN KK=1:GOTO 2590 ELSE IF 
AS="y" THEN KK=1:GOTO 2590 ELSE IF AS="N" GOTO 2630 ELSE 
IF AS="n" GOTO 2630 ELSE 

ESSO LOCATE 23,27,1:PRINT "you must enter (y/n) try 
again":GOSUB 1760:GOTO 2570 

2590 LOCATE 12,10,1:INPUT "ENTER THE NUMBER OF AIRSPEEDS 
EOUSHAVE CALCULATIONS FOR";LL:LOCATE 14,10,1:PRINT "IF YOU 
DO NOT HAVE AN ENTRY FOR A TABLE ITEM JUST HIT THE ENTER 
ER LOCATE 15,10,1:PRINT “AND THE CURSOR WILL MOVE TO THE 
NEXT ENTRY POINT" 

2600 GOSUB 1760:GOTO 2640 

2610 CLS:LOCATE 10,10,1:INPUT "DO YOU HAVE ANY ENTRIES FOR 
EERCTRICATION ALTITUDE (Y/N)";BS:IF BS="Y" THEN GOTO 2630 
ELSE IF BS="y" GOTO 2630 ELSE IF BS="N" GOTO 1900 ELSE IF 
BS="n" GOTO 1900 ELSE 

2520 LOCATE 23,27,1:PRINT "you must enter (y/n) try 
again" ":GOSUB 1760:GOTO 2610 

mae LOCATE 12,10,1:1NPUT "ENTER SPECIFICATION 
ENUTTUDE"P;ALT:LOCATE 14,10,1:INPUT "ENTER SPECIFICATION 
ISBMIPERATUREU : TEMP:LOCATE 16,10,1:INPUT "ENTER NUMBER OF 
AIRSPEEDS YOU HAVE CALCULATIONS FOR";LL: KK=2 

2640 CLS: LOCATE 2,33,1:PRINT "TAIL ROTOR POWER" 

2650 IF KK-1 THEN LOCATE 4,32,1:PRINT "STANDARD SEA 
Pavel’: LOCATE 5,20,1:PRINT "ALTITUDE = 0 FT 

TEMPERATURE = 59 DEG. F" ELSE 

2660 IF KK=2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 


ALTITUDE":LOCATE 5,18,1:PRINT "ALTITUDE =";ALT: LOCATE 
5,35,1:PRINT "FT TEMPERATURE ="; TEMP: LOCATE 
5,60,1:PRINT "DEG. F" 

2670 LOCATE 7,39,1:PRINT "----------- POWER ---------- 
":LOCATE 9,17,1:PRINT "AIRSPEED TIP INDUCED 
PROFILE TOTAL" 

2680 LOCATE 10,18,1:PRINT "(knots) MACH (SHP) 
(SHP) (SHP)" 
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2690 Kz12:FOR L-1 TO LL:LOCATE K,18,1:INPUT O(DL)SBOCATE 
K,29,1:INPUT TIM(KK, L) : LOCATEMG@ 33 eee 

PITRF(KK,L): LOCATE Κ,49,1:1ΝΡῸΟΤ ΒΟΤΕΕΙΕΓ ECOCATE 

K,60,1L: INPUT PTITRE(KK, Lb): K—-R eee 

2700 IF KK-1 THEN GOTO 2610 ELSE GOTO 1900 

2710 CLS:LOCATE 10,10,1:INPUT "DO YOU HAVE ENTRIES ΠΕ, 
LEVEL (Y/N)";AS:IF AS="V" THEN KK=13GO?O ο ο Επ. 
AS="y" THEN KK=1:GOTO 2730 ELSE IF AS="N" GOTO 2770 ELSE 
IF AS="n" GOTO 2770 ELSE 

2720 LOCATE 23,27,1:PRINT "vou MUSt@eeneer (77a m 
again":GOSUB 1760:GOTO 2710 

2730 LOCATE 12,10,1:INPUT "ENTER THE NUMBER OF ΠΙΕΙ 
YOU HAVE CALCULATIONS FOR";LL: LOCATE 14,10,1: PRINT ΙΕ OE 
DO NOT HAVE AN ENTRY FOR A TABLE ITEM JUST HIT THECENDBEEB 
KEY": LOCATE 15,10,1:PRINT "AND THE CURSOR WILL MOVECTOSEES 
NEXT ENTRY I POINT" 

2740 GOSUB 1760:GOTO 2780 

2750 CLS:LOCATE 10,10,1:INPUT "DO YOU HAVE ANY ENTRIESSMESE 
SPECIFICATION ALTITUDE (Y/N)";BS: IF BS="Y¥" ΉΗΡΙ ΕΥ, . 
ELSE IF BS="y" GOTO 2770 ELSE IF BS="N™" GOTO 1900) ERSHaese 
BS="n" GOTO 1900 ELSE 

2760 LOCATE 23,27,1:PRINT "you must enter (Y m MEM 
again":GOSUB 1760:GOTO 2750 

2770 LOCATE 12,10,1:INPUT "ENTER SPECIFICATTON 
ALTITUDE";ALT:LOCATE 14,10,1: INPUT “ENTER SPECIE TCA ike 
TEMPERATURE"; TEMP: LOCATE 16,10,1: INPUT "ENTER NUMBERBG@E 
AIRSPEEDS YOU HAVE CALCULATIONS FOR''; LL: KK=2 

2780 CLS:LOCATE 2,20,1:PRINT "TAIL ROTOR POWER iin 
VERTICAL STABILIZER" 

2790 IF KK=1 THEN LOCATE 4,32,1:PRINT "STANDARD SEA 
LEVEL": LOCATE 5,20,1:PRINT “ALTITUDE "τ 

TEMPERATURE = 59 DEG. F" ELSE 

2800 IF KK=2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 


ALTITUDE": LOCATE 5,18,1:PRINT "ALTITUDE =";ALT: LOCATE 
5,35,1:PRINT "FT TEMPERATURE =";TEMP: LOCATE 
5,60,1:PRINT "DEG. F" 

2810 LOCATE 7,13,1:PRINT "----THRUST----  ------------- 
--------- POWER -------------------"iLOCATE 9,13,1:PRINT 
"TAIL VERT/ MAIN VERT/":LOCATE 10,3,1:PRINT 
"AIRSPEED ROTOR STAB ROTOR STAB INDUCED 
PROFILE TOTAL with v/s" 

2820 LOCATE 11,4,1:PRINT "(knots) (lbf) (lbf) 

(SHP) (SHP) (SHP) (SHP) (SHP) " 


2830 K=14:FOR L-1 TO LL:LOCATE K,4,1:INPUT O(L):LOCATE 
K,12,1:1NPUT TRT(KK,L):LOCATE K,21,1:INPUT L(KK,L):LOCATE 
K,31,1:INPUT PTF(KK,L):LOCATE K,40,1:INPUT VERSTAB(KK,L) 
2840 LOCATE K,48,1:INPUT PITRFl(KK,L):LOCATE K,57,1:INPUT 
POTRF(KK,L):LOCATE K,69,1:INPUT PTTRVSF(KK,L):K-K-*1:NEXT 
L:IF KK-1 THEN GOTO 2750 ELSE GOTO 1900 


d 


Gee CHAPTER FIVE 


10 KEY(5) OFF 

20 Ikkkkkkkkkkkkkkkkkkxk CHAPTER FIVE kkkkkkkkkkkkkkkkkkkkk 
Bo. ! 

40 ' POWER REFINEMENTS 

50 ' 

60 'xikkkkkkkkkkikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkikkikkkkkkkoik 
70 ' 

8ο ! *** CHAPTER FIVE MAIN PROGRAM  *** 

90 ' 

100 ' 

110 PRINT "~C=ALL/":PRINT "~L=CH5/" 

120 KEY(9) ON:ON KEY(9) GOSUB 130 

130 COLOR 1,1,1:CLS:LOCATE 23,1,0:PRINT 
"AW-C5MAIN/":INPUT;"",x 

140 COLOR 15,1,1:IF X-1 THEN CHAIN "BLDOP",,ALL ELSE IF 
X-3 THEN GOSUB 440 ELSE IF X-4 THEN GOSUB 540 ELSE IF X-5 
THEN GOSUB 810 ELSE IF X-6 THEN GOTO 970 ELSE IF X-7 THEN 
GOSUB 1090 ELSE 

150 IF X-8 THEN GOSUB 1150 ELSE IF X-9 THEN GOSUB 1220 
ELSE IF X-10 THEN GOSUB 1330 ELSE IF X-12 THEN GOSUB 1450 
ELSE IF X-13 THEN GOSUB 1570 ELSE IF X-14 THEN GOSUB 1720 
ELSE IF X=15 THEN GOSUB 1870 ELSE 

160 IF X=16 THEN GOSUB 440 ELSE IF X=17 THEN GOSUB 2100 
ELSE IF X=18 THEN GOSUB 1990 ELSE IF X=19 THEN GOSUB 220 
ELSE IF X=20 THEN CLS: LOCATE 23,1,0:PRINT "~W=LOAD/": CHAIN 
"HD1",,ALL 


170 LOCATE 25,54,1:PRINT " ":GOTO 140 
180 ' 

190 ' 

200 ' *** STORE DATA ON FILE DISK *** 
puke” L 

220 CLS: LOCATE 23,1,0:PRINT "~W=DISK/":GOSUB 2410: LOCATE 
25,27,1:PRINT " ": LOCATE 


23,1,0:PRINT "~W=SAVE/" 

230 A(1)=SGW:A(2)=GW1:A(3)=WE:A(4) =VTIPMAX:A(5)=R:A(6)= 
OMEGA:A(7)=CT:A(8)=SIGMA:A(9)=B:A(10)=C:A(11)=AR:A(12)=CL: 
A(13)=CLALPHA:A(14) =CDO:A(15) =DL:A(16)=MBL:A(17) =MU:A(18) = 
MAXFVEL:A(19)=TIPLOSS:A(20)=PIN:A(21)=P0:A(22)=PT:A(23)=HP 
:A(24)=PERINDP 

240 V=24:FOR I=1 TO 3:FOR J=1 TO 15: V=Vt1:Q=J3+24:A(V)=W(Q- 
24,I):NEXT J,I:FOR I=1 TO 3:A(I+69)=W2A(I) :A(I+72)= 

W2B(I) :A(I+75)=W6A(I) :A(I+78)=W6B(I) :A(I+81)=W6C(I) :NEXT 
I:A(85)=N:A(86)=WE(N) :A(87)=GW(N) :A(88) =DL(N- 

1) :A(89)=FM(N-1) :A(90)=FL:A(91)=IRLG 

250 A(92)=NW 

260 A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96) =FUEL:A(97) = 
PEOPLE:A(98)=UL:A(99) =SPECIAL:A(100) =ENGINE:A(101)=Z2:A(10 
2)=AB:A(103)=GR:A(104) =RH:A(105) =H:A(106)=D:A(107)=PINI:A( 


107 


108)=PTI:A(109)=M:A(110)=EFPA:A(111)=RHO(2):A(112)=MM:A(11 
3)=M(2):A(114)=CRUISEV 

270 A(115)=CRU:A(116)=CRU2:A(117)=MAXF:A(118)=MAXF2:A 
(119)=MAXCRU1:A(120)=ALT:A(121)=TEMP:A(122)=LL:A(123)=TR:A 
(124)=TRPM:A(125)=OMEGAT:A(126)=TCDO:A(127)=BT:A(128)=TAR: 
A(129)=TRC:A(130)=TTR:A(131)=CTTR:A(132)=TRB:A(133)=SIGMAT 
:A(134)=V:A(135)=SPAN 

280 A(136)=S:A(137)=SWP:A(138)=SWEEP:A(139)=LAVS:A(140)= 
VSAR:A(141)=BETA2:A(142)=T:A(143)=T2:A(144)=T3:A(145)=CLAT 
R:A(146)=ALTR:A(147)=ALTRDEG:A(148)=TL:A(149)=BLTW:A(150)= 
CM:A(151)=THT:A(152)=AM:A(153)=AMAX:A(154)=PINIGE:A(155)=P 
TTI:A(156)=RSHP 

290 A(157)=STYPE:A(158)=ICESHD:A(159)=STRTIN:A(160)=INLET: 
A(161)=BARR:A(162)=PARTSEP:A(163)=EAPS:A(164)=HDIF:A(165)= 
INRED:A(166)=EEDS:A(167)=RSHP1:A(168)=RSHP2:A(169)=RSHP3:A 
(170)=RSHP1A:A(171)=RSHP2A:A(172)=RSHP3A:A(173)=ESHP:A(174 
)=LOSS:G=175 

300 LL-LLHl:FOR I-1 TO LL:A(G)-O(I):G2G-1:NEXT I:GsG-1-LL: 
Gl=G+1+2*LL:G2=G1+1+2*LL:G3=G2+1+2*LL:G4=G3+1+2*LL 

310 FOR I-1 TO 2:FOR J-1 TO LL:A(G)-PINF(I,J):A(G1)- 

POF (I,J) :A(G2)=PPF(I,J) :A(G3)=PTF(I,J) :A(G4)=TM(I,J) :G=Gt1 
:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT J,I 

320 G5=G44+2:G6=G5+2:G7=G6+2:FOR I=1 TO 2:A(G4)=PITR(I): 
A(G5)=POTR(I) :A(G6)=PTTR(I) :A(G7)=CLTR(I) :G4=G4+1:G5=G5+1: 
G6=G6+1:G7=G7+1:NEXT I:G8=G7+1+2* (LL-1) :G9=G8+1+2%* (LL-1) 
330 FOR I=l TO 2:FOR J=2 TO LL:A(G7)=PITRF(I,J) :A(G8)= 
POTRF (I,J) :A(G9)=PTTRF (I,J) :G7=G7+1:G8=G8+1:G9=G9+1:NEXT 
J,1I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

340 FOR I-21 TO 2:FOR J=1 TO LL:A(G9)=TTM(I,J):A(G10)= 

TRI (I,J) :A(G11)=L(1I,J) :A(G12)=VERSTAB(I,J) :A(G13)=PTTRVSF ( 
I,J) :A(G14)=PITRFI (I,J) :G9=G9+1:G10=G10+1:G11=G114+1:G612=G1 
2+1:G13=G13+1:G14=G14+1:NEXT J,I 

350 G15=G14+1:G16=G15+1+2*LL:G17=G16+1+2*LL:G18=G17+1+2* 
LL:G19=G18+1+2*LL: G20=G19+1+2*LL:G21=G20+1+2*LL 

360 FOR I21 TO 2:FCR J-1 TO LL:A(G15)-AL90(I,J):A(G16)- 
AL270(I,J):A(G17)-M90(I,J):A(G18)-MCRIT(I,J):A(G19)-PS(I,J 
) :A(G20)=PM(I,J) :A(G21) =PTT (I,J) :G15=G15+1:G16=G16+1:G17=G 
17+1:G18=G18+1:G19=G19+1:G20=G20+1:G21=G21+1:NEXT J,I 

370 LL(3)=175+(46*LL) :LL=LL-1 

380 Z=5:OPEN "B:DATA1" FOR OUTPUT AS #1:PRINT #1, Z:FOR 
I-1 TO 10:PRINT 41, LL(I):NEXT I:CLOSE #1 

390 OPEN "B:DATA5" FOR OUTPUT AS £1:FOR I-1 TO LL(3):PRINT 
#1, A(I):NEXT I:CLOSE #1:RETURN 120 

400 ' 

410 ' 


108 


420 | nax SECTION DS. 3. **<x 

ο 5 

440 ' 

450 ' 

meomcls: LOCATE 5,30,1:PRINT "*** SECTION 5.3 ***": LOCATE 
fee, Ls PRINT "=BLADE TWIST-": LOCATE 10,3,1:PRINT "BLADE 
TWIST IS USUALLY BETWEEN MINUS SEVEN DEGREES AND MINUS TEN 
BEGREES":LOCATE 12,15,1:INPUT "ENTER YOUR SELECTION FOR 
BLADE TWIST";BLTW 

470 THT-BLTW*PI/180:LOCATE 23,30,1:INPUT "ANY CHANGES 
(Y/N)'";AS:IF AS$-2"Y" THEN GOTO 460 ELSE IF A$="y" GOTO 460 
ELSE IF AS="N" GOTO 490 ELSE IF AS="n" GOTO 490 ELSE 

480 LOCATE 24,27,1:PRINT "you must enter (y/n) try 
again":GOTO 470 

490 IF X=1l16 THEN GOTO 510 ELSE RETURN 120 

bog. ' 

TO ' 

220 ' *** SECTION 5.4 *** 

Ego ' 

540 ' 

BEOMOLSTLOCATE 5,30,1:PRINT "*** SECTION 5.4 ***":TOCATE 
7,26,1:PRINT “-ROTOR TIP ANGLE OF ATTACK-":LOCATE 
10,10,1:INPUT "ENTER STALL ANGLE OF ATTACK FOR MAIN ROTOR 
BLADE SECTION" ; AMAX: AM=AMAX*PI/180: LOCATE 23,1,0:PRINT 
"~W=COMP/" 

560 MM=M: RHO (1)=RHO:BB=B:B=TIPLOSS :DA=PI*R^2 :VT=OMEGA*R: 
ΓΗ] «ΕΟΝ U=1 TO 2:FOR L=1 TO LLL:VF-2O(L)*1.687778:IF 
L-LLL THEN O(L)-O(L-1)-720 

570 CT-GW(N)/ (RHO(U) *DA*VT^2) : B-1- (SOR(2*CT)/BB) 

580 MU3=VF/VT:T1=.5* ((B*2)+.5* (MU3*%2) ) :T2=((B*3) /3)+(.5% 
(MU3^2) *B) :T32((B^2)/4) * (B^24MU3^2) : TA2 (. 5*MU3) * ( (B^2) * ((M 
U3^2)/4)):B12(B^2-.5* (MU3^2) ) :A11-4* ( (MU3* (B^2) /2) - 
(MU3^3)/8)/((B^2) *B1) :A12- (8*MU3*B)/ (3*B1) :A13-(2*MU3* (B^2 
))/B1:A14-(B^2-* (3* (VU3^2) )/2) /B1 

590 Al4=(B*2+(3*MU3%2) /2) /Bl: PPF(U,L) =RHO(U) *VF*3* 
EFPA/2:IF O(L)<=40 THEN LAM=SQR(CT/2):PPF(U,L)=PPF(U,L)/ 
550 ELSE LAM=-(((PPF(U,L))/GW(N) )+(GW(N) /(2*RHO(U) *DA 
*VE)))/VT:PPF(U,L)-PPF(U,L)/550 

600 F(1)=(2*CT/ (SIGMA*CLALPHA) ) -LAM*T1-THT*T3:F(2)-- 

Met Al —THT*A13:K(1,1)=T2:K(1,2)=T4:K(2,1)=Al2: 

Page 2) =A14:H=2 


610 ' 
620 SIMULTANEOUS EQUATION SOLVER USING MATRIX 
630 DECOMPOSTION WITH FORWARD SUBSTITUTION IN LOWER 


q 
t 
640 ' TRIANGULAR SVSTEM AND BACK-SUBSTITUTION IN UPPER 
650 ' TRIANGULAR SVSTEM 

660 ' 

670 ' 

680 FOR D-2 TO H:FOR I-1 TO D-1:FOR M-1 TO I-1:K(D,I)- 
K(D,I)-(K(D,M) *K(M, I)  : K(I,D)-2K(I,D) -(K(I,M)*K(M,D) ) S NEXT 


T09 


M:K(D,I)=K(D,I)/K(I,I):NEXT I:FOR J=1 TO D-1:K(D,D)=K(D,D) 
-(K(D,J)*K(J,D)):NEXT J,D 

690 FOR I=2 TO H:E=0:FOR J=1 TO I-1:G=K(1I,J)*F(J) :E=E+G: 
NEXT J:F(I)=F(I)-E:NEXT I 

700 F(H)=F(H) /K(H,H):FOR I=H-1 TO 1 STEP -1:P=0:FOR J=I+1 
TO H:Q=F(J)*K(1I,J) :P=P+Q:NEXT J:F(I)=(F(1I)-P)/K(1I,1I) :NEXT 
I: THO=F (1) :TH2=F(2) 

710 AL90(U,L) =(THO+TH2+THT+ (LAM/(1+MU3) ) )*180/PI:AL270 
(U,L) =(THO-TH2+THT+ (LAM/(1+MU3) ))*180/PI:NEXT L,U:M=MM 
720 FOR KK=1 TO 2:GOSUB 730:NEXT KK:IF X1=1 OR X2=1 THEN 
GOTO 870 ELSE IF X=6 THEN RETURN ELSE IF X=16 THEN GOTO 
810 ELSE IF PR=2 THEN GOTO 2100 ELSE IF AU=1 THEN LPRINT 
CHR$ (12):GOTO 1990 ELSE GOTO 120 

730 CLS: LOCATE 2,15,1:PRINT "COMPRESSIBILITY AND STALL 
EFFECTS ON POWER REQUIRED":IF KK-1 THEN LOCATE 
4,32,1:PRINT "STANDARD SEA LEVEL": LOCATE 5,20,1:PRINT 


"ALTITUDE = 0 FT TEMPERATURE = 59 DEG. F" ELSE 

740 IF KK=2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 
ALTITUDE": LOCATE 5,18,1: PRINT “ALTITUDE ="; ALT: LCOCATE 
5735 lb PRIN ΕΕ TEMPERATURE =";TEMP: LOCATE 

5,60,1: PRINT DEGOSES 

750 LOCATE 7,7,1:PRINT "AIRSPEED ALPHA ALPHA 

M90 Merit Ps Pm":LOCATE 8,9,1:PRINT 
"(kts) (90) (270) (shp) 
(enpi 


760 AS="# #2., #":BS="##. #44" :CS="#., #80: K=10:FOR C Mio 
LL+1:LOCATE K,9,1:PRINT USING A$;O(L):LOCATE K,18,1:PRINT 
USING BS;AL90(KK,L):LOCATE K,29,1:PRINT USING 
B$;AL270(KK,L):LOCATE K,39,1:PRINT USING 
C$:M90(KK,L):LOCATE K,49,1:PRINT USING CS$;MCRIT(KEK,D) 

770 DS="####2 2" 3 TOCATE K,59,1:PRINT USING 
D$;PS(KK,L) : LOCATE K,69,1:PRINT USING 

DS ; PM(KK, L) :K=K+1:NEXT L:B=BB:IF AU=1 THEN GOTO 780 ELSE 
GOSUB 2410:RETURN 

780 LCOPV:RETURN 

790 ' 

800 ' 

810 ' *** SECTION 5 15 = 

820 |! 

830 |! 

840 CLS:LOCATE 5,30,1:PRINT "*** SECTION 5.5 *x*x'":T10CATE 
7,27,1:PRINT "-STALL POWER INCREMENT-":LOCATE 23,1,0:PRINT 
"~W=COMP/" 

850 FOR I=1 TO 2:FOR L=1 TO LLL:ACK=AL2 701, IFAN ee 
ACK<0O THEN PS(I,L)=0 ELSE PS(I,L)=(ACK/4) *POF(I,L) 

860 NEXT L,I 

870 FOR KK-1 TO 2:GOSUB 880:NEXT KK:IF Xl=1 THEN X1=0:GOTO 
1040 ELSE IF X2=1 THEN X2=0:GOTO 1120 ELSE IF τ ΠΕ, 
970 ELSE IF PR=3 GOTO 2100 ELSE IF AU=l1 THEN LPRINT CHR$ 
(12) GOTO 1990 ELSE Geto 2 


110 


ο ος  ΕΟΟΘΑΤΕ 2,30,L:PRINT "TOTAL POWER REQUIRED": LOCATE 
3,28,1:PRINT "(With High Speed Effects)":IF KK=1 THEN 
LOCATE 4,32,1:PRINT "STANDARD SEA LEVEL": LOCATE 


5,20,1:PRINT "ALTITUDE = 0 FT TEMPERATURE = 59 DEG. F" 
ELSE 

290 IF KK=2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 
AWPLTUDE": LOCATE 5,18,1:PRINT "ALTITUDE =";ALT: LOCATE 
5,35,1:PRINT "FT TEMPERATURE =";TEMP: LOCATE 
5,60,1:PRINT "DEG. F" 

900 LOCATE 7,5,1:PRINT "AIRSPEED Pi Po Pp 
Ps Pm Ptr PT":LOCATE 8,7,1:PRINT "(kts) 
(shp) (shp) (shp) (shp) (shp) (shp) 

(shp)" 


910 A$2"444.4":B$2" 4444.4" :K-210:FOR L-1 TO LL-l:LOCATE 
K,7,1:PRINT USING A$;O(L):LOCATE K,17,1:PRINT USING 
B$;PINF(KK,L):LOCATE K,26,1:PRINT USING 
B$;POF(KK,L):LOCATE K,35,1:PRINT USING BS;PPF(KK,L) : LOCATE 
K,44,1:PRINT USING B$;PS(KK,L) 

920 PTTRF(KK,1)=PTTR(KK) : LOCATE K,53,1:PRINT USING 
B$;PM(KK,L):LOCATE K,62,1:PRINT USING 
B$;PTTRF(KK,L):LOCATE K,72,1:PRINT USING 
B$;PTT(KK,L):K-K-1:NEXT L:IF AU-1 THEN GOTO 930 ELSE GOSUB 
2410:RETURN 

930 LCOPY:RETURN 

940 ! 

950 ! 

960 ' *** SECTION 5.6 *** 

970 |! 

980 |! 

990 CLS:LOCATE 5,30,1:PRINT "*** SECTION 5.6 ***":LOCATE 
7,27,1:PRINT "-COMPRESSIBILITY EFFECTS-": LOCATE 
10,24,1:INPUT "ENTER BLADE CRITICAL MACH NUMBER";CM 

1000 LOCATE 12,24,0:INPUT "IS THIS A CAMBERED AIRFOIL 
(Y/N)";CAM$:LOCATE 23,1,0:PRINT 

"~W=COMP/": VT=OMEGA*R: DA=PI*R*2 : RHO(1)=RHO 

1010 M(1)21116.89:FOR I-1 TO 2:FOR L=1 TO 

LL+1:VF=0(L) *1.687778:MTIP=VT/M(I) :MU3=VF/VT:M90(I,L)=MTIP 
*(1-MU3):1F CAMS-"N" OR CAMS="n" THEN MCRIT(I,L)-2CM-(2.3* 
ABS (AL90(I,L))*PI/180) ELSE MCRIT(I,L)=CM-(2.3*AL90(I,L) * 
PI/180) 

1020 MD=M90(I,L)-MCRIT(I,L)-.06:IF MD<O THEN PM(I,L)=0 
ELSE PM(I,L)=(((.012*MD)+.1*(MD‘3) ) *SIGMA*RHO(I) *DA*VT*3) 
/550 

1030 NEXT L,I:X1-21:GOSUB 720 

1040 IF X-16 THEN GOTO 1090 ELSE RETURN 120 

1050 ' 

1060 ' 


EE 


107 Ome *** SECTION 5.7 *** 

1080 ' 

1090 ' 

1100 CLS:LOCATE 5,30,1:PRINT "*** SECTION 5.7 ***";LOCATE 
7,28,1:PRINT "-TOTAL POWER REQUIRED-":LOCATE 23,1,0:PRINT 
"~W=COMP/" 

1110 FOR I=1 TO 2:FOR L=1 TO LLt+1:PTT(I,L)=POF(I,L)+ 
PINF(I,L)+PPF(I,L)+PS(1I,L)+PM(1,L)+PTTRF(1I,L) :NEXT 
L,I:X2-1:GOSUB 870 

1120 IF X-16 THEN GOTO 1150 ELSE RETURN 120 

1130 ' 

1140 ' 

1150 ' *** SECTION 5.8 *** 

πος. 

1170 ' 

1180 CLS:LOCATE 5,30,1:PRINT "*** SECTION 5.8 *x**'":10CATE 
7,13,1:PRINT "-ROTOR SHAFT HORSEPOWER REQUIRED AT MAXIMUM 
VELOCITY-" | 

1190 LOCATE 10,20,1:PRINT "TOTAL ROTOR SHAFT HORSEPOWER 
REQUIRED AT:":LOCATE 12,26,1:PRINT "STANDARD SEA LEVEL 
-"PPTT(l,LL):LOCATE 14,26,1:PRINT "SPECIFICATION ALTITUDE 
-"PPTT(2,LL):GOSUB 2410:IF X-16 THEN GOTO 1240 ELSE GOTO 
120 

12007! 

120. 

1220 | *** SECTION 5.9 **x 

3250 ! 

1240 ! 

1250 CLS: LOCATE 5,30,1:PRINT "*** SECTION 5.9 x***":LOCATE 
7,16,1:PRINT "-ROTOR SHAFT HORSEPOWER FOR HOVER CEILING, 
IGE-":LOCATE 10,20,0:INPUT "ENTER SPECIFICATION HOVER 
CEILING" ; ALT1: RHO (3) =RHO* (1-6.87535E-06*ALT1) *4.2561 

1260 CTHC=GW(N) /(PI*RHO (3) *R*4*OMEGA‘2) : TIPHC=1-SQR(2* 
CTHC)/B: PIHC-GW(N)^1.5/ (SOR(2*RHO(3) *PI*R^2) *TIPHC*550):PO 
HC-CDO*SIGMA*RHO(3)*PI*R^5*OMEGA^3/4400 

1270 HH=(RH+5) /(2*R) : PINIGEH=((-.1276* ((HH)*4)+.708*((HH)% 
3)-1.4569* ( (HH) ^2) -1.3432* (HH) 4. 5147) *PIHC) : PPTI-PINIGEH- 
POHC+PTTRHC 

1280 TRTH=PINIGEH*550/(OMEGA*TL) : CTTRHC=TRTH/ (PI*RHO(3) * 
TR*4*OMEGAT’2) : TIPTRHC=1-SQR(2*CTTRHC) /BT: DELTA=(1- 
(6.87535E-06*ALT1))^5.2561:THETA-(1-(6.87535E-06*ALT1)) 
1290 PITRHC-TRTH^1.5/(SQR(2*RHO(3)*PIX*TR^2)*TIPTRHC*550): 
POTRHC-CDO*RHO(3)*PI*TR^5*SIGMAT*OMEGAT^3/4400: PTTRHC-PITR 
HC+POTRHC: PTTI=(PINIGEH+POHC+PTTRHC) / (DELTA*SQR (THETA) ) 
1300 LOCATE 12,15,1:PRINT "INDUCED POWER REQUIRED AT 
SPECIFICATION ALTITUDE =";PINIGEH: LOCATE 14,15,1:PRINT 
"TOTAL POWER REQUIRED AT SPECIFICATION ALTITUDE 
-"PPTTI:GOSUB 2410:IF X=16 THEN GOTO 1350 ELSE GOTO 120 
1310 ' 

1320 ' 


112 


1530 


' *** SECTION 5.10 *** 


1340 ' 

1350 ' 

1360 CLS:LOCATE 5,30,1:PRINT "*** SECTION 5.10 ***":10CATE 
7,19,1:PRINT "-MAXIMUM ROTOR SHAFT HORSE POWER REQUIRED-" 
1370 IF PTT(1,1)>PTT(1,LL) THEN RSHP=PTT(1,1) ELSE 
RSHP=PTT (1, LL) 

1380 IF PTT(2,1)>RSHP THEN RSHP=PTT(2,1) ELSE RSHP=RSHP 
1390 IF PTT(2,LL)>RSHP THEN RSHP=PTT(2,LL) ELSE RSHP=RSHP 
1400 IF PTTI>RSHP THEN RSHP=PTTI ELSE RSHP=RSHP 

1410 LOCATE 10,15,1:PRINT "MAXIMUM ROTOR SHAFT HORSE POWER 
REQUIRED =";RSHP:GOSUB 2410:IF X=16 THEN GOTO 1450 ELSE 
GOTO 120 

1420 ' 

1430 ' 

1440 ' *** SECTION 5.12 *** 

1450 ' 

1460 ' 

1470 CLS:LOCATE 2,30,1:PRINT "*** SECTION 5.12 ***":LOCATE 
4,27,1:PRINT "-INLETS AND INLET DUCTING-" 

1480 LOCATE 8,27,1:PRINT "1. S-TYPE": LOCATE 10,27,1:PRINT 


NO. 


1490 
GOTO 


MEBEMSHNEFEBD' : LOCATE 12,27,1:PRINT "3. 
IMIMSTOCATE 14,27,1:PRINT "4. 


STRAIGHT- 
SELECTIONS COMPLETE" 

ΓΙ, sO, 112i NPUL “WHICH SELECTION" ;U:IF U=1 THEN 
YS5TO ELSE IF U=2 GOTO 1520 ELSE IF U=3 GOTO 1530 ELSE 


IF U=4 GOTO 1540 ELSE 


1500 
i510 
r520 
15530 
1540 


IF U«1 OR U»4 THEN GOTO 1490 

STYPE=.05:LOCATE 8,45,0:PRINT "*":GOTO 1490 
ICESHD=.1: LOCATE 10,45,0:PRINT "*":GOTO 1490 
STRTIN=.02:LOCATE 12,45,0:PRINT "*":GOTO 1490 
INLET-STYPE-ICESHD-STRTIN:PINLET-INLET*100:RSHP1-RSHP 


*INLET:LOCATE 18,20,1:PRINT "PERCENT INCREASE DUE TO INLET 
=";PINLET: LOCATE 20,20,1:PRINT "SHAFT HORSEPOWER REQUIRED 
FOR INLETS ";RSHP1:RSHP1A=RSHP* (1+INLET) 


PO LOCATE 22,10,1:PRINT "TOTAL SHAFT HORSEPOWER REQUIRED 
WITH INLETS INCLUDED =";RSHP1A:GOSUB 2410:IF X=16 THEN 
GOTO 1600 ELSE GOTO 120 

560 ' 

EO ' 

T580 ' ΣΕ SECTION 5 *** 

1590 ' 

| ο ' 

momo CLS:LOCATE 2,30,1:PRINT "*** SECTION 5.13 *w***";LOCATE 
4,25,1:PRINT 'W'-ENGINE AIR PARTICLE SEPARATORS-' 
IMMWWEMEFOGATE 8,25,1:PRINT "I. BARRIER":LOCATE 10,25,1:PRINT 
MEĦIMPARTICIE SEPARATORW:LOCATE 12,25,1:PRINT “3. SELECTION 
COMPLETE" 

BOSOCLOCATE 14,30,1:INPUT "WHICH SELECTION";U:IF U=1 THEN 


GOTO 
1640 
1650 


1650 ELSE IF U=2 GOTO 1660 ELSE IF U=3 GOTO 1670 ELSE 
moa OR U>3s THEN GOTO 1630 
BARR=.1: LOCATE 8,45,0:PRINT "*":GOTO 1630 


ETS 


1660 


LOCATE 10,50 768 INPUT 


"PERCENT" ;PS: PARTSEP=PS*.01: LOCATE 10,47,0: PRINT "= =e 


1630 
1670 


EAPS=BARR+PARTSEP: PEAPS=EAPS*100:RSHP2=EAPS*RSHP1A: 


LOCATE 16,20,1:PRINT "PERCENT INGCREASERDDE SK PE s 
-";PEAPS:LOCATE 18,20,1:PRINT "SHAFT HORSEPOWERIREOU P PE 
FOR EAPS =";RSHP2:RSHP2A=RSHP1A* (1+EAPS) 


1680 
WITH 
1720 
1690 
1700 
ΠΠ RO 
"20 
1750 
1740 


4,27, 


1750 


10,25 1C PRINTED.. 
12/293, i1 DENTES 


1760 
GOTO 
1270 
1780 
1 790 
1800 
1810 


LOCATE 20,10,1:PRINT "TOTAL SHAFT HORSEPOWER REQUIRED 
INLETS & EAPS =";RSHP2A:GOSUB 2410:IF X=16 THEN GOTO 
ELSE GOTO 120 

' 


' 
I *** SECTION 5.14 *** 
' 


CLS:LOCATE 2,30,1:PRINT "*** SECTION 5.14 ***" ΤΕ ΙΡ 
1:PRINT "-ENGINE EXHAUST DIFFUSERS 

LOCATE 8,25,1:PRINT "1. HEAT DEPRUSERM ο ο. 
INFRA-RED SUPPRESSERT TOCATE 

SELECTION COMPLETEN 

LOCATE 14,30,1:INPUT 'WHICH SELECTIONW:U:IF L-ISE an 
1780 ELSE IF U=2 GOTO 1790 ELSE IF U=3 GOTO 1800 >82aa 
IF U<1" OR  U>2 THEN G GOTOI 1760 

HDIF-.03:LOCATE 8,50,0:PRINT Απ "ο 

INRED=.05;: LOCATE 10,50,0: PRINT "x": COTO =r co 

IF RSHP2A=0 THEN RSHP2A=RSHPI1A 

EEDS=HDIF+INRED: PEEDS=EEDS*100: RSHP3=RSHP2A*EEDS: 


LOCATE 16,20,1:PRINT "PERCENT INCREASEMPUEQGEONMBENMS 
="? PEEDS: LOCATE 18,20,1:PRINT "SHAFT HORSEPOWER REQUTFEB 


FOR EEDS =";RSHP3 : RSHP3A=RSHP2A* (1+EEDS) 

1820 LOCATE 20,10,1:PRINT "TOTAL SHAFT HORSEPOWER ΕΕ ΟΙ. 
WITH INLETS, EAPS & EEDS =";RSHP3A:GOSUB 2410:1F Ες Τους 
GOTO” 187 0- EES] COTG F120 

πο ο 

1840 ' 

ΘΝ *** SECTION 5.15 **x**%* 

1860 ! 

t8707! 

1880 CLS:LOCATE 5,30,1:PRINT "U*** SECTION 5.15 **x**" μου... 
7,22,1:PRINT "-ENGINE SHAFT HORSE Ρο ο Κω πω ο 


um. LOSSI-RSHP 


1890 
1900 
1910 
1920 
ELSE 
1930 
1940 
1950 


IF RSHP1A>0 
IF RSHP2A>0 
IF RSHP3A>0 


THEN 
THEN 
THEN 


LOSS1=RSHP1A 

LOSS1=RSHP2A 

LOSS1=RSHP3A 

IF ENGINE-1 THEN GOT 1670 ELSE IF ENGINE=2 GOTO 1940 
IF ENGINE=3 GOTO 1950 

LOSS=LOSS1*1.03:GOTO 1960 

LOSSA=LOSS1*1.1: LOSS=LOSSA*1.03:GOTO 1960 
LOSSA-LOSS1*1.15:LOSSB-LOSSA*1.03:LOSS-LOSSB*1.01333 


33#:GOTO 1960 
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i OO ESIIP=TOSS+T+]10:TLOCATE 10,18,1:PRINT “ENGINE SHAFT 


HORSEPOWER REQUIRED =";ESHP:GOSUB 2410:RETURN 120 
T970. ' *** PRINT OUT DATA ***x* 
1980 ' 

moO ! 


2000 COLOR 1,1,1:CLS:LOCATE 23,1,0:PRINT 
"-WeCS5PRINT/":INPUT;"",RR:COLOR 15,1,1 

2010 AUZ0:ON RR GOTO 2030,2030,2030,2020 

2020 RETURN 120 

2030 CLS:LOCATE 23,1,0:PRINT "-W-PRINTER/":GOSUB 2410:0N 
RR GOTO 2040,2050,2060 

2040 AU=1:GOSUB 2140 

2050 AU=1:GOSUB 720 

2060 AU=1:GOSUB 870 

2070 ' 

2080 ' 

2090 ' *** LIST RESULTS *** 

οσο ' 

Palo ' 

2120 COLOR 1,1,1:CLS:LOCATE 23,1,0:PRINT 
"AW-eCSRESULT/":1INPUT;"",PR:COLOR 15,1,1 

2130 AU=0:IF PR=1 THEN GOTO 2140 ELSE IF PR=2 THEN GOSUB 
720 ELSE IF PR=3 THEN GOSUB 870 ELSE IF PR=4 THEN RETURN 
Lae 

2140 CLS:LOCATE 1,25,1:PRINT "TABLE OF CHAPTER FIVE 
RESULTS" 

2150 STYPEA=STYPE*100: ICESHA=ICESHD*100:STRTINA=STRTIN*100 
: BARRA=BARR*100: PARTSEPA=PARTSEP*100: HDIFA=HDIF*100:INREDA 
=INRED*100 

2160 LOCATE 3,12,1:PRINT "BLADE TWIST";TAB(57) BLTW 

2170 PRINT TAB(12) "BLADE STALL ANGLE OF ATTACK";TAB(57) 
AMAX 

2180 PRINT TAB(12) "BLADE Mcrit";TAB(57) CM 

2190 PRINT TAB(12) "BLADE LIFT CURVE SLOPE" ;TAB(57) 
CLALPHA 

2200 PRINT TAB(12) "BLADE Cdo";TAB(57) CDO 

2210 PRINT TAB(12) "RSHP REQUIRED AT MAXIMUM VELOCITY:" 
2220 PRINT TAB(17) "SPECIFICATION ALTITUDE" ;TAB(57) 

PTT (2, LL) 

2230 PRINT TAB(17) "STANDARD SEA LEVEL";TAB(57) PTT(1,LL) 
2240 PRINT TAB(12) "RSHP FOR HOVER CEILING, IGE";TAB(57) 
PTTI 

2250 PRINT TAB(12) "MAXIMUM RSHP";TAB(57) RSHP 

2260 PRINT TAB(12) "INLETS AND INLET DUCTING LOSSES:" 
2270 PRINT TAB(17) "S-TYPE";TAB(57) STYPEA;"3" 

2280 PRINT TAB(17) "ICE SHEILD";TAB(57) ICESHDA;"£" 

2290 PRINT TAB(17) "STRAIGHT IN";TAB(57) STRTINA;"$" 
2300 PRINT TAB(12) "ENGINE AIR PARTICLE SEPARATORS:" 
2310 PRINT TAB(17) "BARRIER";TAB(57) BARRA;"£" 

2320 PRINT TAB(17) "PARTICLE SEPARATOR" ;TAB(57) 
PARTSEPA ; "3%" 
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2330 PRINT TAB(12) "ENGINE EXHAUSTIDI FP ΙΙ 

2340 PRINT TAB(17) "HEAT DIFFUSERS";TAB(57) HDIFA;"£" 

2350 PRINT TAB(12) "INFRA-RED SUPPRESSER DIFFUSER'";TAB(57) 
INREDA; "3" 

2360 PRINT TAB(12) "ENGINE SHAFT HORSEPOWER 

REQUIRED”; TAB(5/)] TESNE 

2370 IF AU=1 THEN GOTO 2380 ELSE GOSUB 2410 RETURNE AS 
2380 LCOPY:LPRINT CHR$ (12):GOSUB 2410:RETURN 2000 

2999 

2400 | 

2410 IF AP2l THEN LOCATE 25,79,0 ELSE LOCATE 25 ο ο μα. aa 
"press any key to continue" 

2420 AS-SINKEYS:IF ASz"" THEN 2420 

2430 RETURN 
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lo 'kxkkkkkkkkkkkkkkkkkx CHAPTER FIVE kkkkkkkkkkkkkkkkkkkkkk 
20 ' 

ο BLADE SELECTION OPTIMIZATION 

40 ! 

50 xx oko ee ck de ke e e e e e koe ecce ec eee ck ck e de ek ck deck ck ecc ek e ee e heck ek 
60 ! 


i 
80 ' xxx DATA INPUT xxx 
' 


100 ' 

110 CLS:LOCATE 3,25,1:PRINT "*** BLADE SELECTION 
OPTIMIZATION ***":LOCATE 10,15,1:INPUT "NUMBER OF BLADES 
YOU WISH TO CHECK (MAX 5 AT A TIME)';V1:CLS:LOCATE 
10,15,1:PRINT "DO YOU WANT TABULAR OUTPUT OF ALL THE 
PARAMETERS AT EACH" 

120 LOCATE 11,15,1:1INPUT "ANGLE OF TWIST AS IT IS 
CALCULATED (Y/N)";A$:IF AS="Y¥" THEN GOTO 140 ELSE IF 
AS="y" GOTO 140 ELSE IF AS="N" THEN AO=1:GOTO 140 ELSE IF 
AS="n" THEN AO=1:GOTO 140 ELSE 

130 GOTO 120 

140 CLS:LOCATE 10,30,0:PRINT "ENTER BLADE TWIST 

RANGE": LOCATE 12,32,0:INPUT "MINIMUM (ie. -7)";ALMN: LOCATE 
14,32,0:1NPUT "MAXIMUM (ie. -15)";ALMX 

150 W-0:CLS:LOCATE 2,25,1:PRINT "*** BLADE SELECTION 
OPTIMIZATION ***": LOCATE 5,1,0:PRINT "BLADE NAME 
CKA STALLÁ Cdo Mcrit CAMBERED 
(Y/N)":FOR U-1 TO 80:LOCATE 6,U,0:PRINT "6":NEXT U:KK=7 
160 FOR I-1 TO V1 

170 LOCATE KK,2,0:PRINT I:LOCATE KK,9,0:INPUT 

"" AS(I):LOCATE KK,26,0:INPUT "",CLALPHAl(I):LOCATE 
KK,37,0:INPUT "",STAL(I):LOCATE KK,47,0:INPUT 

"" CDOL(I):LOCATE KK,56,0:INPUT "",CM(I):LOCATE 
KK,72,0:INPUT "'",CAMS(I):KK-KK-41 

180 FOR U-1 TO 80:LOCATE KK,U,O:PRINT 'l-T:NEXT U:KK-KKHl 
190 LOCATE 23,25,1:1NPUT "ANY CHANGES FOR THIS LINE 
(X/N)'';AS:IF AS-'VW THEN GOSUB 210:GOSUB 220:GOTO 170 ELSE 
IF AS="y" THEN GOSUB 210:GOSUB 220:GOTO 170 ELSE IF A$="N" 
OR AS="n" THEN GOSUB 210:NEXT I 

ES GOTO 230 

210 LOCATE 23,25,0:PRINT " 

'": RETURN 

220 KK=KK-2:LOCATE KK,1,0:PRINT " 

" ; RETURN 

230 LOCATE 23,1,0:PRINT "~W=COMP/":GOTO 250 

240 ' 

250 MM-M:BB-B:B-TIPLOSS:FOR Z=1 TO V1:W=0 

260 
CLALPHA1=CLALPHA1(Z) :STAL=STAL(Z) : AM=STAL*PI/180:CDO1=CDO1 
(Z) : CMSCM(Z) : CAMS-CAMS (Z) 

0 ' 


r7 


280 LLL-LL-1:FOR I-1 TO 2:FOR J-1 TO LLL:POFA(I,J)- 
POF(I,J):PPFA(I,J)=PPF(I,J):PTFA(I,J)=PTE(I,J):PITRFA (T 
ZPITRF(I,J):POTRFA(I,J)-POTRF(I,J):PTTRFA(I,J)-PTTRF(I,J): 
πε σαιτ 

290 RHO (1)=RHO:DA=PI*R^2:VT=0MEGA*R:TRA=PI*TR^2:LLL=LL+ 
1:FOR U=I TO 2:L=LL 

300 VF=1.687778*O(L) :MU2=VF/ (OMEGA*R) : VITR=SQR((-(VF%2) /2) 
+SOR((((VF*2) /2)*2)+( (PTF (U,L) *550) *2) / ( (2*#TRA*RHO(U) = tae 
MEGA) %*2))):PITRF(U,L)=(((PTF(U,L) *550) / (TL* OMEGA) ) *VITR) / ( 
550*TB(U)) 

310 POTRF(U,L)=SIGMAT*CDO1*RHO (U) *TRA* ( (OMEGAT*TR) *3) * (1+ 
(4.3% (MU2%2) ))/4400: PITRF(U,L)=PITRF(U, L) +POTRF(U,L) 

320 NEXT IU 

330 FOR I=1 TO 2:PTTRF(I,1)SPTIR( FANE ΟΙ 

340 ' : 

350 FOR EE-ALMN TO ALMX STEP -1:THT-EE*PI/180:W-2ABS(EE) 
360 M(1)=1116.89:FOR U=1 TO 2:L=LL: VF=0(L) *1.687778 

370 CT=GW(N) / (RHO (U) *DA*VT%2) 

380 B=1-(SQR(2*CT) ΕΕ) 

390 MU3=VF/VT:T1l=.5*( (B*%2)+.5* (MU3“%2) ) :22=( (8-3) 3) K 
(MU3^2) *B) : T32((B^2) /4) * (B^2*MU3^2) :T4z2(.5*MU3) *( (B^205mI 
U3^2)/4)) : B12(B^2-.5* (MU3^2)) : ALI-A*((MU3*(B^2)72) (MUSAE 
/8)/((B^2) *B1):A12-2-(8*MU3*B)/(3*B1):A13-(2*MU3* (B^2) )/B1:A 
14=(B^2+ (3*(MU3^2))/2)/Bl 

400 Al4-(B^24(3*MU3^2)/2)/B1:PPF (U, D) RHO(U) *VF^3*EFPA/2: 
IF O(L)<=40 THEN LAM=SQR(CT/2):PPF(U,L)=PPF(U,L)/550 ELSE 
LAM=-(((PPF(U,L) )/GW(N) )+(GW(N) / (2*RHO(U) *DA*VF) )) /VT: 
PPF(U,L) -PPE(U;E)J/550 

410 F(1)=(2*CT/ (SIGMA*CLALPHA1))-LAM*T1-THT*T3:F(2)=- 
LAM*A11-THT*¥A13:K(1,1)=T2:K(1,2)=T4:K(2,1)=Al12: 
K(2,2)=A14:H=2 


420 ! 
430 SIMULTANEOUS EQUATION SOLVER USING MATRIX 
440 DECOMPOSTION WITH FORWARD SUBSTITUTION IN LOWER 


460 TRIANGULAR SYSTEM 

470 

480 ' 

490 FOR D-2 TO H:FOR I-1 TO D-1:FOR M-1 TO I-1l1:K(D,I)- 
K(D,1)-(K(D,M)*K(M,I)):K(L,D)=K(L1,D)=(K(T,M)#K α ο... 
M:K(D,I)=K(D,I)/K(I,I):NEXT I:FOR J=-] τ "πι ο... 
K(D,D)=(K(D,J)#K(3Ə2 ,D)) : NE X pi AD 

500 FOR I=2 TO H:E=0:FOR J=l TO I-1:G=K(I,J)*F(J):E=EFETG; 
NEXT. J:F(I)=F(I)-E:NEXTAI 

510 F(H)=F(H)/K(H,H):FOR I=H-1 TO 1 STEP <-I: P=0:FOR JZE 
TO H:Q=F(J)*K(1I,J):P=P+Q:NEXT J:F(1)=(F(1)-P)/K(1I,1I) :NEXT 
I: THO=F (1) :TH2=F(2):FOR I=1 TO 2:F(I)=0:FOR J=1 TO 
2:KE(L;J)=S0;:NEXP T T 

520 AL90(U,L)=(THO+TH2+THT+ (LAM/ (1+MU3) )) *180/PI:AL270 
(U, L) =(THO-TH2+THT+ (LAM/ (1+MU3) )) *180/PI 

55051 


' 
i 
450 ! TRIANGULAR SYSTEM AND BACK-SUBSTITUTION ΙΝ ΤΕΕ. 
' 
' 
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540 ACK=AL270(U,L)-STAL(Z):IF ACK<O THEN PS(U,L)=0 ELSE 

PS (U, L)=(ACK/4) *POF(U,L) 

550 ' 

560 ' 

570 MTIP-VT/M(U):MU3-VF/VT:M90(U, L) -MTIP* (14MU3) : IF 
CAMS="N" OR CAMS="n" THEN MCRIT(U,L)=CM-(2.3*ABS (AL90 
(U,L))*PI/180) ELSE MCRIT(U,L)=CM-(2.3*AL90(U,L)*PI/180) 
580 MD=M90(U,L)-MCRIT(U,L)-.06:IF MD<O THEN PM(U,L)=0 ELSE 
PM(U,L)2(((.012*MD)-*.1* (MD^3) ) *SIGMA*RHO (U) *DA*VT^3)/550 
590 f 


Soo ' 

610 

EEUU .D)-POF(U,L)TPINF(U,D)TPPF(U,L)--PS(U,L)-*PM(U,L) *PTTRF 
(U,L) 

670 ' 

ceo | 

640 NEXT U:IF AO-1 THEN GOTO 660 ELSE GOSUB 990 

650 GOSUB 1070 

660 ' 

ο ου PIT(I,LL)-PTT(2,LL) THEN RSHP-PTT(l,LL) ELSE 
RSHP=PTT (2, LL) 

680 I=ABS(EE):RSHP(Z,I)=RSHP 

Bee NEXT EE 

700 NEXT Z 

gar. ' 

πι 

ESO | 

740 IF AO-1 THEN FOR I-1 TO 3:SOUND 700,9:SOUND 500,9:NEXT 
I 

A ORCTS:LOCATE 2,22,0:PRINT "BLADE MAXIMUM VELOCITY POWER 
ReQULREMENTS": LOCATE 4,40,0:PRINT "BLADES": LOCATE 

6, O0: PRINT "1 2 3 4 
ELSEOCATE 6,1,0:PRINT "TWIST": LOCATE 6,12,0:PRINT AS(1) 
MGOMLOCATE 6,26,0:PRINT A$(2):LOCATE 6,40,1:PRINT 
AS(3):LOCATE 6,54,0:PRINT AS(4):LOCATE 6,68,0:PRINT A$(5) 
770 K-8:KK-12:FOR EE-ALMN TO ALMX STEP -1:I-ABS(EE):LOCATE 
Pees PRINT EE:FOR J=1 TO VI:LOCATE K,KK,O:PRINT 
RSHP(J,I):KK-KK-*14:NEXT J:K-K-1:KK-12 

780 NEXT EE:IF AP=1 THEN AP=0:LCOPY:LPRINT CHRS (12) :GOTO 
820 ELSE GOSUB 1170 

fee clLs: LOCATE 10,10,0: INPUT "DO YOU WANT A HARD COPY OF 
fee TABLE (Y,N)";BS:IF BS="Y" THEN AP=1:GOTO 810 ELSE IF 
BS="y" THEN AP=1:GOTO 810 ELSE IF BS="N" THEN GOTO 820 
ELSE IF BS="n" THEN GOTO 820 ELSE 

800 LOCATE 25,27,0:PRINT "you must enter (y/n) try 
again'':GOTO 790 

S10 CLS:PRINT "~W=PRINTER/":GOSUB 1170:GOTO 750 
EENNMCLS:LOCATE 10,10,0:INPUT "IS THE SELECTED BLADE THE 
SAME AS YOUR ORIGINAL SELECTION (Y/N)";B$:IF B$z"Y" THEN 
GOTO 950 ELSE IF BS="y" GOTO 950 ELSE IF BS="N" GOTO 840 
ELSE IF BS="'n" GOTO 840 ELSE 


D 


830 GOTO 820 

840 LOCATE 14,10,1:1NPUT "ENTER Cdo OF THE NEW 
BLADE";CDO:LOCATE 16,10,0:PRINT "THE MAIN AND TAIL ROTOR 
POWER CALCULATIONS HAVE BEEN MODIFIED": LOCATE 
17,10,0:PRINT "TO REFLECT THE NEW BLADE SELECTION. 

CHAPTER FOUR SECTION 4.4" 

850 LOCATE 18,10,1:PRINT "THE VERTICAL STABILIZER WILL 
NEED TO BE CHECKED DUE TO THE":LOCATE 19,10,0:PRINT "POWER 
ALTERATIONS. THIS CAN BE DONE AT ANY TIME, JUST 

ENSURE": LOCATE 20,10,0:PRINT "CHAPTER 5 DATA IS LOADED 
PRIOR TO SELECTING CHAPTER FOUR" 

860 GOSUB 1170:LOCATE 23,36,0:PRINT "COMPUTING" 

870 ' 

880 RHO(1)-RHO:DA-PI*R^2:VT-OMEGA*R: TRA-PIX*TR^2:LLL-LL41 
:FOR U-I TO 2:FOR L-1 TO LLL 

890 VF=0(L) *1.687778:MU3=VF/VT: POF (U, L) =SIGMA*CD01*RHO(U) 
*DA*VT^3*(1-4.3*(MU3^2) ) sPTF(U,L)sPINF(U,L)-«POF(U,L)-*PPF(U 
L) 

900 TTR-(((PT*550)/OMEGA) /TL) : CTITR-TTR/ (PI*(TR^4) *RHO(U) * 
(OMEGAT^1.5)):TRB-1-((SQR(2*CTTR)/BT) ) : PITR(U) 
-(((TTR^1.5)/SQR(2*PI*(TR^2) *RHO(U) )) /TRB) /550: SIGMAT- (BT* 
TRC) /(PI*TR) : POTR(U) =(SIGMAT*CDO1*RHO(U) *PI* (TR*5) *OMEGAT“ 
3)/4400: PTTR(U) =PITR(U)+POTR(U) 

910 VF-1.687778*0(L) : M2-VF/ (OMEGA*R) : VITR=SQR((-(VF*2) /2) 
-*SQR((((VF^2)/2)^2)- ((PTF(U,L) *550)^2)/((2*TRAX*RHO (U) *TL*O 
MEGA)^2))) : PITRF(U,L)-(((PTF(U,L) *550)/ (TL*OMEGA) ) *VITR)/5 
50: POTRF (U, L) =SIGMAT*CDO1*RHO (U) *TRA* ((OMEGAT*TR) ^3) * (14 (4 
.3* (MU2^2) ) )/4400 

920 PTTRF(U, L)=PITRF(U,L)+POTRF(U,L) : PTTRF(U,1)=PTTR(U) 
930 NEXT L,U:GOTO 960 

940 ' 

950 LLL-LL-1:FOR I-1 TO 2:FOR J-1 TO 
LLL:POF(I,J)sPOFA(I,J):PPF(I,J)2PPFA(I,J):PTF(I,J)sPTFA(I, 
J):PITRF(I,J)-PITRFA(I,J):POTRF(I,J)-POTRFA(I,J):PTTRF(I,J 
)=PTTRFA(I,J):NEXT J,I 

960 CLS:LOCATE 10,10,1:PRINT "NOW COMPLETE CHAPTER FIVE 
WITH THESE BLADE SELECTION RESULTS":GOSUB 1170 

970 M=MM:B=BB:FOR I=1 TO 2:FOR J=1 TO 
LLL:PS(I,J)s0:PM(I,J)20:PTT(I,J)20:M90 (I,J)-20:MCRIT(I,J)-20 
:NEXT J,I 

980 CHAIN '"CHAP5",,ALL 

990 FOR KK-1 TO 2:GOSUB 1000:NEXT KK:RETURN 650 

1000 CLS:LOCATE 2,15,1:PRINT "COMPRESSIBILITY AND STALL 
EFFECTS ON POWER REQUIRED':LOCATE 3,33,1:PRINT "BLADE 
TWIST 2";EE:IF KK-1 THEN LOCATE 4,32,1:PRINT "STANDARD SEA 
LEVEL":LOCATE 5,20,1:PRINT "ALTITUDE - O FT 

TEMPERATURE - 59 DEG. F" ELSE 

1010 IF KK-2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 
ALTITUDE":LOCATE 5,18,1:PRINT "ALTITUDE =";ALT: LOCATE 
5,35,1:PRINT "FT TEMPERATURE =";TEMP: LOCATE 
5,60,1:PRINT "DEG. F" 
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MEŻOSLOCATE 7,7/,1:PRINT "AIRSPEED ALPHA ALPHA 


M90 Merit Ps Pm: LOCATE 8,9,1:PRINT 
"(kts) (90) (270) (shp) 
(shp)" 


1030 AS-S"dJ$343.42":B92"2142.2434":CS$z2"42.,42424242" : KZ10: LZLL: LOCATE 
K,9,1:PRINT USING A$;O(L):LOCATE K,18,1:PRINT USING 

BS ;AL90(KK,L) : LOCATE K,29,1:PRINT USING 

BS ;AL270(KK,L) : LOCATE K,39,1:PRINT USING 

C$;M90(KK,L): LOCATE K,49,1:PRINT USING C$;MCRIT(KK,L) 
1040 DS="####2#.#"3;LOCATE K,59,1:PRINT USING 
D$S;PS(KK,L) : LOCATE K,69,1:PRINT USING 

DS;PM(KK,L) :K=K+1:GOSUB 1170:RETURN 

(050 ! 

1060 ' 

move FOR KK=l TO 2:GOSUB 1080:NEXT KK: LOCATE 23,1,0:PRINTI 
"-W-COMP/":RETURN 660 

L080 CLS:LOCATE 2,30,1:PRINT "TOTAL POWER REQUIRED":LOCATE 
3,28,1:PRINT "(With High Speed Effects)":IF KK-1 THEN 
ESCATE 3,32,1: PRINT “STANDARD SEA LEVEL": LOCATE 


"=O, I PRINT "ALTITUDE = O FT TEMPERATURE = 59 DEG. F" 
MMTOSLOCATE 6,33,1:PRINT 'U'BLADE TWIST -W;EE ELSE 

1100 IF KK-2 THEN LOCATE 4,30,1:PRINT "SPECIFICATION 
ENIDERUDE": LOCATE 5,18,1:PRINT "ALTITUDE z";ALT:LOCATE 
Ι:5ΕΙΝΤ "FT TEMPERATURE =";TEMP: LOCATE 
EMSULI:PRINT "DEG. F':LOCATE 6,33,1:PRINT "BLADE TWIST 
=Ü! ΞΕ η 

ΠΟ LOCATE 7,5,1:PRINT "AIRSPEED Pi Po 

Pp Ps Pm Ptr PT": LOCATE 

πλ ts PRINT "(kts) (shp) (shp) (shp) (shp) 
(shp) (shp) (shp)" 


MORAS. #4" BS="####. #":K=10:L=LL: LOCATE K,7,1:PRINT 
USING AS;O(L):LOCATE K,17,1:PRINT USING 
B$;PINF(KK,L):LOCATE K,26,1:PRINT USING 
B$;POF(KK,L):LOCATE K,35,1:PRINT USING B$;PPF(KK,L):LOCATE 
K,44,1:PRINT USING B$;PS(KK,L) 

1130 PTTRF(KK,l)sPTTR(KK):LOCATE K,53,1:PRINT USING 
BS;PM(KK,L) : LOCATE K,62,1:PRINT USING 

BOMPTTREF(KK,L) LOCATE K,72,1:PRINT USING 

BS; PTT (KK, L) :K=K+1:GOSUB 1170:RETURN 


1140 ! 

WSO | 

TEGO ' 

1170 LOCATE 25,27,0:PRINT "press any key to continue" 
1180 AS=INKEYS:IF AS=""" THEN 1180 


Νο RETURN 


Tor 


H. CHAPTER SIX 


5 KEY(5) OFF 
Το 'kkkikkkkikkkkkkkxkkkikxikkkkikkkkikikkikikkkkikkkkkkkxikkkixix 
20 ' 
30 ' ENGINE SELECTION 
40 ' 
50 'xikxikiikiAkxikkikkikiikAkkkkkikkkikkkkikkikkkikikkkkkkkkikixxxk 
60 ' 

*** CHAPTER SIX MAIN PROGRAM  *** 
80 ! 

' 
100 PRINT '"-C-ALL/":PRINT "~L=CH6/" 
110 KEY(9) ON:ON KEY(9) GOSUB 120 
120 COLOR 1,1,1:CLS:LOCATE 23,1;0:PRINT 
"-W-C6MAIN/":INPUT;"",X 
130 COLOR 15,1,1:IF X-1 THEN GOSUB 490 ELSE IF X-2 THEN 
GOSUB 590 ELSE IF X-3 THEN GOSUB 800 ELSE IF X-4 THEN 
GOSUB 960 ELSE IF X-5 THEN GOSUB 1150 ELSE IF X-6 THEN 
GOSUB 1250 ELSE IF X-7 THEN GOSUB 490 ELSE 
140 IF X=8 THEN GOSUB 1480 ELSE IF X-9 THEN GOSUB 1400 
ELSE IF X-10 THEN GOSUB 210 ELSE IF X-11 THEN LOCATE 
23,1,0:CLS:PRINT "-W-LOAD/":CHAIN "HD1",,ALL 


150 LOCATE 23,54,1:PRINT " ":GOTO 130 
160 ' 

io | 

180 ' *** STORE DATA ON FILE DISK *** 
190 ' 

200 ' 

210 CLS:LOCATE 23,1,0:PRINT "~W=DISK/":GOSUB 1800:LOCATE 
25,27,1:PRINT " ": LOCATE 


23,1,0:PRINT "~W=SAVE/" 

220 A(1)=SGW:A(2)=GW1:A(3)=WE:A(4)=VTIPMAX:A(5)=R:A(6)= 
OMEGA:A(7)=CT:A(8) =SIGMA:A(9)=B:A(10)=C:A(11)=AR:A(12)=CL: 
A(13)-CLALPHA:A(14)-CDO:A(15)-DL:A(16)-MBL:A(17)-MU:A(18)- 
MAXFVEL:A(19)-TIPLOSS:A(20)2PIN:A(21)2PO:A(22) -PT:A(23) -HP 
:A (24) -PERINDP 

230 V-224:FOR I-1 TO 3:FOR J—71 TO 15:V-VHl:Q-JH24:A(V)7W(Q- 
24,1):NEXT J,I:FOR I=1 TO 3:A(I+69)=W2A(I) :A(I+72)=W2B(I): 
A(I+75)=W6A(I) :A(I+78) =W6B(I) :A(I+81) =W6C(I) :NEXT 
I:A(85)=N:A(86)=WE(N) :A(87)=GW(N) :A(88)=DL(N- 

1) :A(89)=FM(N-1) :A(90)=FL:A(91)=IRLG 

240 A(92)=NW 

250 A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96) =FUEL:A(97)= 
PEOPLE:A(98)=UL:A(99) =SPECIAL:A (100) =ENGINE:A(101)=22:A(10 
2)=AB:A(103)=GR:A(104)=RH:A(105) =H:A(106)=D:A(107) =PINI:A( 
108)=PTI:A(109) =M:A(110)=EFPA:A(111)=RHO(2) 7A(112) =) Ae 
3)=M(2) :A(114) =CRUISEV 

260 A(115)=CRU:A(116) =CRU2:A(117) =MAXF:A(118) =MAXF2:A(119) 
=MAXCRU1:A(120)=ALT:A(121) =TEMP:A(122)=LE:A( 123) =TReA( ee 
=TRPM:A(125)=OMEGAT:A (126) =TCDO:A(127) =BI:A( 128) TARA WIE 
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)=TRC:A(130)=TTR:A(131)=CTTR:A(132)=TRB:A(133)=SIGMAT:A(13 
4)=V:A(135)=SPAN 

270 A(136)=S:A(137)=SWP:A(138)=SWEEP:A(139)=LAVS:A(140)= 
VSAR:A(141)=BETA2:A(142)=T:A(143)=T2:A(144)=T3:A(145)=CLAT 
R:A(146)=ALTR:A(147)=ALTRDEG:A(148)=TL:A(149)=BLTW:A(150)= 
CM:A(151)=THT:A(152)=AM:A(153)=AMAX:A(154)=PINIGE:A(155)=P 
TTI:A(156)=RSHP 

280 A(157)=STYPE:A(158)=ICESHD:A(159)=STRTIN:A(160)=INLET: 
A(161)=BARR:A(162)=PARTSEP:A(163)=EAPS:A(164)=HDIF:A(165) = 
INRED:A(166)-EEDS:A(167)-RSHP1:A(168)-RSHP2:A(169) -RSHP3:A 
(170) =RSHP1A:A(171)=RSHP2A:A(172) =RSHP3A:A(173)=ESHP:A(174 
)=LOSS:A(175)=ENG 

290 A(176)=EN:A(177)=TRPWR:A (178) =TRWT:A(179)=NGW:A(180)= 
NPT:A(181)-NDL:A(182)-NFM:A(183)-NPERINDP:A(184)-NPERDIFP: 
A(185)=NPERDIFW:G=186 

300 LL-LLHl:FOR Il-1 TO LL:A(G)20(I):G-GHl:NEXT I:G-GHIHLL: 
Gl=G+1+2*LL:G2=G1+1+2*LL:G3=G2+1+2*LL:G4=G3+1+2*LL 

310 FOR I-1 TO 2:FOR J=l TO LL:A(G)=PINF(I,J):A(G1)= 
POF(I,J):A(G2)-PPF(I,J):A(G3)-PTF(I,J):A(GA)-TM(I,J):G-GHl 
:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT J,I 

320 G5=G4+2:G6=G5+2:G7=G6+2:FOR I=1l1 TO 2:A(G4)=PITR(I): 
A(G5)=POTR(I):A(G6)=PTTR(I):A(G7)=CLTR(I):G4=G4+1:G5=G5+1: 
G6=G6+1:G7=G7+1:NEXT I:G8=G7+1+2*(LL-1):G9=G8+1+2*(LL-1) 
330 FOR I=l TO 2:FOR J=2 TO LL:A(G7)=PITRF(I,J):A(G8)= 
POTRF (I,J) :A(G9)=PTTRF (I,J) :G7=G7+1:G8=G8+1:G9=G9+1:NEXT 
J,1:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

340 FOR I=l TO 2:FOR J=1 TO LL:A(G9)=TTM(I,J):A(G10)= 

TRT (I,J) :A(G11)=L(I,J) :A(G12)=VERSTAB (I,J) :A(G13)=PTTRVSF ( 
I,J) :A(G14)=PITRFI (I,J) :G9=G9+1:G10=G10+1:G11=G11+1:G12=G1 
2+1:G13=G13+1:G14=G14+1:NEXT J,I 

350 G15=G14+1:G16=G15+1+2*LL:G17=G16+1+2*LL:G18=G17+1+ 
2*LL: G19=G18+1+2*LL:G20=G19+1+2*LL:G21=G20+1+2*LL 

360 FOR I-1 TO 2:FOR J-21 TO LL:A(G15)-AL90(I,J):A(G16)- 
AL270(I,J):A(G17)-2M90(I,J):A(G18)-MCRIT(I,J):A(G19)-PS(I,J 
):A(G20)=PM(I,J) :A(G21)=PTT (I,J) :G15=G15+1:G16=G16+1:G17=G 
17+1:G18=G18+1:G19=G19+1:G20=G20+1:G21=G21+1:NEXT J,I 

370 G22=G21+1:G23=G22+1+ENG:G24=G23+1+ENG:G25=G24+1+ENG: 
G26=G25+1+ENG : G27=G26+1+ENG:G28=G27+1+ENG:G29=G28+1+ENG: G3 
0=G29+1+ENG:G31=G30+1+ENG: G32=G31+1+ENG: G33=G32+1+ENG:G34= 
G33+1+ENG:G35=G34+1+ENG:G36=G35+1+ENG: G3 7=G36+1+ENG: G38=G3 
EEMIESENG 

380 G39=G38+1+ENG:G40=G39+1+ENG:G41=G40+1+ENG 

390 FOR I=1 TO ENG:A(G22)=DW(I) :A(G23)=SHP(I) :A(G24)= 
SFC(I) :A(G25) =IC(I) :A(G26)=O0C(I) :A(G27)=PMA(I) :A(G28)=MTBM 
A(I):A(G29)=MDT(I) :A(G30) =MTBF (I) :A(G31)=MTBR(I) :A(G32)=RC 
(I) :A(G33)=SV(I) :A(G34) =AVAIL(I) :A(G35)=RELY (I) :A(G36) =MAI 
NT (I) 

400 A(G37)=LC(I) :A(G38) =EWT(I) :A(G39)=YO(I) :A(G40)=YM(I): 
A(G41)=NRPL(1I) :G22=G22+1:G23=G23+1:G24=G24+1:G25=G25+1:G26 
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=G26+1:;G27=G27+1:;G28=G28+1:;G29=G29+1:;G30=G30+1:;:G31=G31+1:G 
32=G32+1:G33=G33+1:;G34=G34+1:G35=G35+1:G36=G36+1 

410 G37=G37+1:G38=G38+1:G39=G39+1:;G40=G40+1:G41=G41+1:NEXT 
ils 

420 LL(4)=187+(46*LL) +(50*ENG) : LL2LL-1 

430 Z26:0PEN "B:DATAl1" FOR OUTPUT AS #1:PRINT #1, Z:FOR 
I=1 TO 10:PRINT #1, LL(I):NEXT I:CLOSE fl 

440 OPEN "B:DATA6" FOR OUTPUT AS #1:FOR I=1 TO LL(4):PRINT 
#1, A(I):NEXT 1: CLOSE #1:RETURN TIO 

450 ! 

460 ! 
470 ' *** SECTION 6.1 *** 

480 ' 

490 ' 

500" ; 

510 CLS:LOCATE 5,30,1:PRINT "*** SECTION 6.1 χα στο M 
7,230,1: PRINT “"-NUMBER OF ENGINES—": LOCATE το ο πι. 
"ENTER NUMBER OF ENGINES REQUIRED";ENGINE: LOCATE 
12,22,1:PRINT "NUMBER OF ENGINES =";ENGINE 

520 LOCATE 23,30,1:INPUT "ANY CHANGES (Y/N)'ZASSTESASCUEMN 
THEN GOTO 510 ELSE IF AS="y" GOTO 510 ELSE IF AS="N“ GOTO 
540 ELSE IF AS="n" GOTO 540 ELSE 

530 LOCATE 24,27,1:PRINT "you must enter (y/n) try 
again":GOTO 520 

540 IF X=7 THEN GOTO 560 ELSE RETURN 110 

nog c 

5507 
570 3 
5507: 
550 1 
600 CLS:LOCATE 5,30,1:PRINT "*** SECTIONS 6.20*** 20109 jin 
7,31,1:PRINT "-TYPE OF ENGINES=": LOCATE ΙΟ, ΙΤ p DD 
"ENTER NUMBER OF ENGINES COMPETING FOR SELECTION" ;ENG 

610 CLS: LOCATE 2,27,0:PRINT 'ENGINE SEEEGĦMKON 

PARAMETERS": LOCATE 4,5, ΟΣΡΗΕΙΝΤ "ENGINES" LOCATE 
6,5,0:PRINT "DRY WEIGHT":PRINT TAB(5) "SHP (ssl) 
military":PRINT TAB(5) "SFC (ssl) military" PRINT Tap 
"INITIAL COST ($K)" 

620 LOCATE 11,5,0:PRINT "OPERATING COST/HR/":PRINT TAB(5) 
"ENGINE ($)":LOCATE 14,5,0:PRINT "PREVENTIVE MAINT/" 

630 PRINT TAB(5) "HR/ENGINE ($)":LOCATE 17,5,0:PRINT 
"MTBMA (hrs)":PRINT TAB(5) "MDT (hrs)":PRINT TAB(5) MERK 
(hrs)":PRINT TAB(5) UMTBR (EE jal 

640 K=30:KK=28:FOR I=l TO ENG:IF I-1 THEN AS="A" ELSE IF 
I=2 THEN AS="B";3ELSE IF I=3 THEN AS="C" ELSE IF I=4 THEN 
AS="D" ELSE IF I=5 THEN AS="E" 

650 LOCATE 4,K,0:PRINT A$:LOCATE 

6,KK,0: INPUT;"",DW(I):LOCATE 7,KK,0:INPUT;"",SHP(I) : LOCATE 
8,KK,O: INPUT;"",SFC(I) : LOCATE 9,KK,0: INPUD te τι. ΡΟ 
J) KK, 0:INPUT; ii OGC (1): OG mo 
14,KK,1:INPUT;"",PMA(I):LOCATE 17,KK,0:INPUT;"",MTBMA(I) 


*** SECTION 6.2 *** 
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ο AT On KK, ,O:INPUT; "VF MDT (I): LOCATE 

K IPO O: TNPUT;""U “ MTBF(TI):LOCATE 

20,KK,O;:;INPUT;"'! MTBR(I):K=K+10:;KK=KK+10:;NEXT I 
GĦOTLOCATE 23,33,0:INPUT "ANY CHANGES (Y/N)";AS:IF AS$z"y" 
THEN GOTO 610 ELSE IF AS="y" GOTO 610 ELSE IF AS="N" GOTO 
690 ELSE IF AS='"'n" GOTO 690 ELSE 

Moe LOCATE 25,27,0:PRINT “you must enter (y/n) try 
again'":GOTO 670 

690 ' 

Eoo ' 

ERO ' 

peo ' 

meen elo: LOCATE 10,10,0:INPUT "ENTER SPECIFICATION AVERAGE 
ERENGHT HOURS PER YEAR ";AFL: LOCATE 12,10,0:INPUT "ENTER 
SPECIFICATION AVERAGE AIRFRAME SERVICE LIFE IN 
NMEARS'SSL:LOCATE 14,10,0:INPUT "ENTER AVERAGE FLIGHT HOUR 
PER FLIGHT" ;TAV 

gee LOCATE 23,33,0:INPUT "ANY CHANGES (Y/N)";AS:IF AS="Y" 
THEN GOTO 730 ELSE IF As="y" GOTO 730 ELSE IF AS="N" GOTO 
760 ELSE IF As="n" GOTO 760 ELSE 

Pee LOCATE 25,27,0:PRINT "you must enter (y/n) try 
again":GOTO 740 

760 FOR I=1 TO ENG: YM(I)=PMA(I) *AFL/1000:YO(I)= 

OC(1L) *AFL/1000:NRPL1=AFL*SL/MTBR(I) :NRPL(I) =ENGINE* (CINT(N 
RPL1) ):LC(I) =ENGINE* (RD(I)+IC(I)+(SL*(YO(I)+YM(I)))+(NRPL( 
I)*((1.35*IC(I))-(.8*IC(I))))):AVAIL(I)-^MTBMA(I)/(MTBMA(I) 
EHUDICI)) 

770 MAINT(I)-(MDT(I)/(MTBMA(I)-MDT(I)))*TAV:RELY(I)-EXP(- 
ο UPBBE(I)):RC(I)21.35*IC(I):SV(I)z2.8*IC(I):NEXT I:IF X27 
feet GOTO 790 ELSE RETURN 110 

το. 

noo ' 

S00 ' kkk SECTION 6.3 xxx 

ΞΕ, ! 

820 ' 

EEDGEOTS: LOCATE 5,30,0:PRINT "*** SECTION 6.3 ***":LOCATE 
EE »LO:PRINT "-INSTALLATION WEIGHT-" 

840 FOR I=1 TO ENG:IF DW(I)<=300 THEN GOTO 850 ELSE IF 
DW(I)>300 AND DW(I)<=700 GOTO 860 ELSE IF DW(I)>700 AND 
DW(I)<=1100 GOTO 870 ELSE IF DW(I)>1100 GOTO 880 

850 EWT(I)-DW(I)*1.29:GOTO 890 

860 EWT(1I)=DW(I)*1.27:GOTO 890 

870 EWT(I)=DW(I)*1.24:GOTO 890 

880 EWT(1I)=DW(I)*1.2:GOTO 890 

890 NEXT I 

900 LOCATE 9,25,0:PRINT "ENGINES INSTALLATION 
WEIGHT" 

910 K1211:FOR I-1 TO ENG:IF I=1 THEN AS="A" ELSE IF I=2 
THEN A$2"B":ELSE IF I-23 THEN AS$-2"C" ELSE IF I-4 THEN 
ASz"D" ELSE IF I=5 THEN AS="E" 
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920 LOCATE K1,28,0:PRINT AS: LOCATE ο τἩ 
EWT (I) :K1L=K1+2:NEXT I:IF AV=1 THEN GOTO 930 ELSE GOSUB 
l800:IF xX=7 THEN GOTO 960 ELSE RETOUR ere 
930 LCOPY:GOSUBT18007 RETURN 
' 


940 

950 ' 

960 ! *** SECTION 6.4 *** 
970 ' 

980 ' 

- 990 CLS:LOCATE 3,27,0:PRINT "ENGINE SELECTION 
CRITERIA'":LOCATE 5,36,0:PRINT "---------------- ENGINE --- 
-------------- ":LOCATE 6,37,0:PRINT "A B C 
D E":PRINT "":PRINT "POWERPLANT WEIGHT:'":PRINT 


"'LIFE-CYCLDERCOST σος. 

1000 PRINT TAB(5) "ENGINE LIFE (hrs):":PRINT TAB(5) "No. 
OF REPLACEMENTS:":PRINT TAB(5) "R/D COSTS:":PRINT TAB(5) 
"INITIAL COSTS;:":PRINT TAB(5) "ANNUAL MAINT. COSTOUSGDPDPEMM 
TAB(5) "ANNUAL OPERATING COST:":PRINT TAB(5) "REPLACEMENT 
COST: 

1010 PRINT TAB(5) "SALVAGE VALUE:":PRINT "AVAILABILITY 
(per engine):":PRINT "RELIABILITY (per engine):":PRINT 
"MAINTAINABILITY (per engine):":PRINT "PERFORMANCE 
(military SHP):":cSz"4.42934" 

1020 K1=35:BS=")#####":FOR I=1l1 TO ENG:LOCATE 8,K1,0:PRINT 
USING BS;EWT(I): LOCATE 9,K1,0:PRINT USING BS;LC(I):LOGRBB 
10,K1,0:PRINT USING BS;MTBR(I) :LOCATE 11,K1,0: PRINT Ustie 
BSiNRPL(I):LOCATE 12,K1,0:PRINT USING BS;RD(T): ος.» 
13,K1,0:PRINT USING BŠ;IC(I) 

1030 LOCATE 14,K1,0:PRINT USING BS;YM(I):LOCATE 

15,Kl1,0: PRINT USING BS$;YO(I):LOCATE 16,KI 0: PRINTU NE 
B$;RC(I):LOCATE 17,K1,0:PRINT USING B$;SV(I):LOCATE 
18,K1,0:PRINT USING CS;AVAIL(I): LOCATE 19,K1,0:PRINT USING 
CS RELY (T) 

1040 LOCATE 20,K1,0:PRINT USING C$;MAINT(I) : LOCATE 
21,K1,0:PRINT USING BS$;SHP(I) :K1=K1+9:NEXT I:IF AV=1 THEN 
GOTO 1050 ELSE IF X8 THEN GOSUB 1800:RETURN 1480 ELSE 
GOSUB 1800:GOTO 1060 

1050 LCOPY: LPRINT CHRS (12):RETURN 1400 

1060 IF ENG=1 THEN EN=1:GOTO 1100 ELSE CLS: LOCATE 
10,10,0:INPUT "NOW ENTER THE LETTER OF THE SELECTED ΕΝ Ιω. 
(ie. A,B,C)";DS$ 

1070 IF DS$Sz"A" THEN EN-1 ELSE IF D$-2"a" THEN EN-1 ELSE IF 
DS="B" THEN EN=2 ELSE IF DS="b" THEN EN=2 ELSE IF DS="c" 
THEN EN=3 ELSE IF DS="c" EN=3 ELSE IF DS="D" THEN EN=4 
ELSE IF D$z"d" THEN EN-4 ELSE IF DS-"E" THEN EN-5 ELSE IF 
DS="e" THEN EN=5 

1080 LOCATE 23,33,0:INPUT "ANY CHANGES (Y/N)";AS:IF ΑΞΞΙΥΗ 
THEN GOTO 1060 ELSE IF AS="y" GOTO 1060 ELSE IF AS="N" 
GOTO 1100 ELSE IF AS="n" Οτο Ἱτου ο  - 

1090 LOCATE 25,27,0:PRINT "you must enter ο ο ;. 
again":GOTO 1060 
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1100 IF X-7 THEN GOTO 1150 ELSE RETURN 110 

EO ! 

E20 ' 

πο ' *** SECTION 6.5 *** 
Πο, 

TISO ' 

io CDS:ILOCATE 5,30,0:PRINT "*** SECTION 6.5 ***":LOCATE 
7,28,0: PRINT "-TRANSMISSION SELECTION-" 

1170 LOCATE 10,15,0:PRINT “ENGINE SHAFT HORSE POWER 
="*sESHP: LOCATE 12,15,0: INPUT "USING TABLE VI-3 SELECT AND 
ENTER TRANSMISSION WEIGHT";TRWT:LOCATE 14,15,0:INPUT 
"ENTER TRANSMISSION RATING IN SHP";TRPWR 

1180 LOCATE 23,33,0:INPUT "ANY CHANGES (Y/N)";AS$:IF A$s"y" 
THEN GOTO 1170 ELSE IF A$-"y" GOTO 1170 ELSE IF AS="N" 
GOTO 1200 ELSE IF AS="n" GOTO 1200 ELSE 

meso LOCATE 25,27,0:PRINT "you must enter (y/n) try 
again":GOTO 1180 

ο ΙΕ X=7 THEN GOTO 1230 ELSE RETURN 110 

1210 ' 

P20 ' 

T230 ! *** SECTION 6.6 *** 

1240 ' 

250 ' 

1260 CLS:LOCATE 23,1,0:PRINT '"-W-COMP/" 

1270 W(6,3)-2W6C(3)-TRWT- (ENGINE*EWT(EN)):WE220:FOR I-1 TO 
15:WE2-WE2-W(I,3):NEXT I:NGW-WE2-4FUEL-*UL- (PEOPLE*250): 
NDL-NGW/ (PI*R^2):NCTZNGW/ (PI*R^2*RHO*OMEGA^2*R^2) : NTIPLOSS 
—-l1-(SOR(2*NCT)/B):NPIN-(NGW^1.5)/(SQR(2*RHO*PI*(R^2))*NTIP 
LOSS*550) 

1280 NPO-(RHO*CDO*SIGMA*PI*(R^5)*(OMEGA^3))/4400 

1290 

NTRT- (NPIN-*NPO)*550/ (OMEGA*TL) : TAZ2PI*TR^2: TRVT-OMEGAT* 
TRSCTT-NTRT/(RHO*TA*TRVT^2):TTIP-1-(SOR(2*CTT)/BT): 
NPITR2NTRT^1.5/(SQR(2*RHO*TA) *TTIP*550):NPOTR-SIGMAT*CDO*R 
HO*TA*TRVT^3/4400:NPTTRZNPITR-TNPOTR 

1300 NP=NPIN+NPO:NPT=NPIN+NPO+NPTTR: HP=NPT: NPINWOTL=NPIN* 
NTIPLOSS : NFM=NPINWOTL/NP: NPERINDP=(NPIN/NP) *100: NPERDIFP=( 
ABS (NPT-PTT (1,1) )/NPT) *100:NPERDIFW=(ABS (NGW- 

GW (N) ) /NGW) *100 

Pro ChS;:LOCATE 5,30,0:PRINT "*** SECTION 6.6 ***"; LOCATE 
foes, OS PRINT "-REVISED GROSS WEIGHT AND POWER REQUIRED- 
": LOCATE 10,20,0:PRINT "NEW GROSS WEIGHT z";NGW:LOCATE 
12,20,0:PRINT "NEW TOTAL POWER TO HOVER OGE =";NPT 

1320 LOCATE 14,20,0:PRINT "NEW DISC LOADING =";NDL: LOCATE 
16,20,0:PRINT "NEW FIGURE OF MERIT =";NFM: LOCATE 

MOOO: PRINT "NEW PERCENT OF INDUCED POWER 

See RINDP: LOCATE 20,20,0:PRINT "PERCENT DIFFERENCE IN 
TOTAL POWER =";NPERDIFP 

RemembOCATE 22,20,0:PRINT “PERCENT DIFFERENCE IN WEIGHT 
="*sNPERDIFW:GOSUB 1800:RETURN 110 

1340 ! 


T27 


53550 


| 

TSOs 

πο. *** PRINT OUT DATA ***x* 
IPSIS 

qo 

1400 COLOR 1l1,1,1:CLS:LOCATE 23 PO rm m 


"~W=C6PRINT/™: INPUT; "" ΕΕΚ: ΘΟΡΟΕ ΞΡ 
1410 IF PR-1 THEN GOSUB 1440:GOTO 1420 ELSE IF PR-2 THEN 
GOSUB 1440:GOTO 1430 ELSE IF PR=3 THEN AV=0:RETURN 110 


1420 AV=1:GOSUB 
1430 AV=1:GOSUB 
1440 CLS: LOCATE 


σος νο πα ΙΙ 


1450 
1460 
1470 


1500:AV=0:GOTO 1400 
990:AV=0:GOTO 1400 
23,1,0: PRINT "-W-PRINTER/'"$SGOSUE 


*** PRINT OUT DATA *** 


l480 COLOR 1,1,1:CLS:LOCATE 25, ο Ε.Π 
"~W=C6RESULT/": INPUT; "", PR: COLOR TS I WI 

1490 IF PR=1 THEN GOTO 1500 ELSE IF PR=2 THEN GOSUB 990 
ELSE IF PR=3 THEN RETURN 110 


1500 IF AV-1 THEN LPRINT TAB(25) 


"TABLE OF CHAPTER ΟΠ. 


RESULTS":LPRINT "" ELSE CLS:LOCATE 2 25 1Η ΕΡΡΙΝΕ ΤΕ”. 
CHAPTER Si ΕΕ ΕΙ 


1510 IF AV-1 THEN LPRINT TAB(12) "SELECTED ENGINE DATA" 
ELSE LOCATE 4,12,1:PRINT "SELECTED ENGINE DATA" 

1520 PRINT TAB(17) "DRY WEIGHT";TAB(57) DW(EN) 

1530 PRINT TAB(17) "SHP";TAB(57) SHP(EN) 

1540 PRINT TAB(17) "SFC";TAB(57) SFC(EN) 

1550 PRINT TAB(17) "INITIAL COST";TAB(57) IC(EN) 

1560 PRINT TAB(17) "OPERATING COST";TAB(57) OC(EN) 
1570 PRINT TAB(17) "PREVENTIVE MAINTENANCE";TAB(57) 
PMA (EN) 

1580 PRINT TAB(17) "MTBMA";TAB(57) MTBMA (EN) 

1590 PRINT TAB(17) "MDT";TAB(57) MDT(EN) 

1600 PRINT TAB(17) "MTBR'";TAB(57) MTBR(EN) 

1610 PRINT TAB(17) "REPLACEMENT COST";TAB(57) RC(EN) 
1620 PRINT TAB(17) "SALVAGE COST";TAB(57) SV(EN) 

1630 PRINT TAB(17) "AVAILABILITY";TAB(57) AVAIL(EN) 
1640 PRINT TAB(17) "RELIABILITY";TAB(57) RELY(EN) 

1650 PRINT TAB(17) "MAINTAINABILITY";TAB(57) MAINT(EN) 
1660 PRINT TAB(12) "TRANSMISSION RATING (SHP)";TAB(57) 
TRPWR i 
1670 PRINT TAB(12) "TRANSMISSION WEIGHT'";TAB(57) TRWT 


1680 IF AV=1 THEN GOTO 1690 ELSE GOSUB 1800:GOTO 1690 


1690 IF AV=1 THEN PRINT TAB(12) 


"NEW GROSS WEIGHT" ;TAB(57) 


NGW ELSE CLS:LOCATE 3,12,0:PRINT "NEW GROSS 


WEIGHT" ;TAB(57) NGW 


1700 PRINT TAB(17) 
1710 PRINT TAB(17) 
1720 PRINT TAB(17) 


"TOTAL POWER TO HOVER OGE";TAB(57) NPT 
"DISC LOADING";TAB(57) NDL 
"FIGURE OF MERIT";TAB(57) NFM 


T 28 


1730 PRINT TAB(17) "PERCENT INDUCED POWER";TAB(57) 
NPERINDP 

1740 PRINT TAB(17) "PERCENT DIFFERENCE IN POWER";TAB(57) 
NPERDIFP 

1750 PRINT TAB(17) "PERCENT DIFFERENCE IN WEIGHT";TAB(57) 
NPERDIFW 

1760 IF AV=1 THEN GOTO 1770 ELSE GOSUB 1800:GOTO 1460 
i770 LCOPY:LPRINT CHRS (12):RETURN 1400 

7690 ! 

1790 ' 

ΝΤ. 1: λΕΞ1 THEN LOCATE 25,79,0 ELSE LOCATE 25,27,0:PRINT 
"press any key to continue" 

1810 AS=INKEYS: IF AS$="" THEN 1810 

1820 RETURN 


129 


I. CHAPTER SEVEN 


10 KEY(5) OFF 

20 l kkkkkkikkkkkikikxkxk CHAPTER SEVEN ΑΧΧΧΑΧΧΧΧΧΧΧΧΧΧΧΧΧΧΧΧΧΧ 
' 

a RANGE AND ENDURANCE 

E IK KRRKRNRAKAR BA BR b a eese Ι 
' 

ds | *** CHAPTER SEVEN MAIN PROGRAM  *** 


10) 

110 PRINT "-C-ALL/":PRINT 'l-LeCH7/ 

120 KEY(9) ON:ON KEY(9) COSUB ΕΠ 

130 COLOR 1,1,1:CLS:LOCATE 23,1;0:PRINT 

Na W=C7MAIN/ 3 INPUT x 

140 COLOR 15,1,1:IF X-1 THEN GOSUB 500 ELSE IP. X2 
GOSUB 620 ELSE IF X-3 THEN GOSUB 680 ELSE TP X-4 DEN 
GOSUB 750 ELSE IF X=5 THEN GOSUB 840 ELSE IF X=6 THEN 
GOSUB 940 ELSE IF X-7 THEN GOSUB 1020 ELSE 

150 IF X=8 THEN GOSUB 1120 ELSE IF X=9 THEN GOSUB 500 ELSE 
IF X=10 THEN GOSUB 1620 ELSE IF X=11 THEN GOSUB 1900 EESE 
IF X=12 THEN GOSUB 180 ELSE IF X=13 THEN ΟΕΕ; 
23,1,0: PRINT "-W-LOAD/":CHAIN "HDI" TACE 

ToO + 

το |! 

το. kkk STORE DATA ON FILE DISK xxx 

190 ' 

200 | 

210 CLS: LOCATE 23,1,0:PRINT 'l-W-DISK/Ħ:EOSUB 1940: D00 A3 
25,271: PRENT 1! ": LOCATE 
23,1,0: PRINT "~W=SAVE/" 

220 A(1)=SGW:A(2)=GW1:A(3) =WE:A(4)=VTIPMAX:A(5)=R:A(6)= 
OMEGA:A(7)=CT:A(8)=SIGMA:A(9)=B:A(10) =C:A(11)=AR:A(12)=CL: 
A(13) =CLALPHA:A(14)=CDO0:A(15)=DL:A(16)=MBL:A(17) =MU:A(18)= 
MAXFVEL:A(19)-2TIPLOSS:A(20)-PIN:A(21)-PO:A(22) -PT:A(23) -HP 
:A (24) -PERINDP 

230 V=24:FOR I=1 TO 3:FOR J=1 TO 15: V=V+1:Q=J3+24:A(V)=W(Q- 
24,1) SNEXT J T FOR T= ΠΕ 
3:A(I+69)=W2A(I):A(I+72)=W2B(I):A(I+75)=W6A(I):A(I+78)=W6B 
(1) :A(I+81)=WGC(I1):NEXLI 
I:A(85)=N:A(86)=WE(N):A(87)=GW(N):A(88)=DL(N- 
1):A(89)=FM(N-1):A(90)=FL:A(91)=IRLG 

240 A(92)=NW 

250 A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96)=FUEL:A(97)= 
PEOPLE:A(98)=UL:A(99)=SPECIAL:A(100)=ENGINE:A(101)=ZZ:A(10 
2)=AB:A(103)=GR:A(104) =RH:A(105) =H:A(106)=D:A(107) =PINI:A( 
108) =PTI:A(109) =M:A(110) =EFPA:A(111)=RHO(2) :A(112)=MM:A(11 
3)2M(2):A(114)-CRUISEV 

260 A(115)2CRU:A(116)-2CRU2:A(117)2MAXF:A(118)-2MAXF2:A(119) 
-MAXCRU1:A(120)-ALT:A(121)-TEMP:A(122)-2LL:A(3123)-2TR*A (0029 


750 


=TRPM:A(125)=OMEGAT:A(126)=TCDO:A(127)=BT:A(128)=TAR:A(129 
) =TRC:A(130)=TTR:A(131)=CTTR:A(132) =TRB:A(133) =SIGMAT:A(13 
4)=V:A(135)=SPAN 

270 A(136)=S:A(137)=SWP:A(138) =SWEEP:A(139)=LAVS:A(140)= 
VSAR:A(141)=BETA2:A(142)=T:A(143) =T2:A(144)=T3:A(145)=CLAT 
R:A(146)=ALTR:A(147) =ALTRDEG:A(148)=TL:A(149)=BLTW:A(150)= 
CM:A(151)=THT:A(152)=AM:A(153)=AMAX:A(154)=PINIGE:A(155)=P 
TTI:A(156)=RSHP 

280 A(157)=STYPE:A(158) =ICESHD:A(159) =STRTIN:A(160)=INLET 
:A(161)-BARR:A(162)-PARTSEP:A(163)-EAPS:A(164)-HDIF:A(165) 
=INRED:A(166) =EEDS:A(167)=RSHP1:A(168)=RSHP2:A(169)=RSHP3: 
A(170)=RSHP1A:A(171)=RSHP2A:A(172) =RSHP3A:A(173)=ESHP:A(17 
4) -LOSS:A(175)-ENG 

290 A(176)7EN:A(177)-TRPWR:A(178)-TRWT:A(179)-NGW:A(180) 
=NPT:A(181)=NDL:A(182)=NFM:A(183)=NPERINDP:A(184)=NPERDIFP 
:A(185)-NPERDIFW:FOR I-1 TO 3:A(185-I)-SFC(I): 
A(188-I)-SHP(I):A(19l-I)-WDOTF(I):NEXT I:A(195)-BETAH: 
A(196)-ALPHAH(1):A(197)-ALPHAH(2) 

300 A(198)-2PHANTOM(1):A(199)-PHANTOM(2):A(200) MRV:A(201) 
=MRP:A(202)=FFR:A(203) =MEV:A(204) =ERSHPR:A(205) =EFFR:A(206 
) =CRUPWR (1) :A(207)=CRUPWR(2) :A(208)=CRUFFR(1) :A(209) =CRUFF 
R(2):A(210) =TFUEL:A(211)=TIME:A(212)=NGW2 :G=213 

310 LL=LL+1: FOR I-1 TO LL:A(G)70(I):G-GHI:NEXT I:G-G-Hl-LL: 
G1=G+1+24*LL: G2=G1+1+2*LL: G3=G2+1+2*LL: G4=G3+1+2*LL 

320 FOR I=1 TO 2:FOR J=1 TO LL:A(G)=PINF(I,J):A(G1l)= 

POF (I,J) :A(G2)=PPF(I,J):A(G3)=PTF(I,J):A(G4)=TM(I,J) :G=G+l 
>G1l=G1t+1:G2=G2+1:6G3=G3+1:G4=G4+1: NEXT J,I 

330 G5=G6412 :G6=G5+2 :G7=G6+2: FOR I=l TO 2:A(G4)-PITR(I): 
A(G5)=POTR(I) :A(G6)=PTTR(I) :A(G7)=CLTR(I) :G4=G4+1:G5=G5+1: 
G6=G611:G7=G7+1:NEXT 1I:G8=G7+1+2* (LL-1) :G9=G8+1+2* (LL-1) 
340 FOR I=1 TO 2:FOR J=2 TO LL:A(G7)=PITRF(I,J):A(G8)= 
POTRF (I,J) :A(G9)=PTTRF (I,J) :G7=G7+1:G8=G8+1:G9=G9+1:NEXT 
J,1:G10=G694+1+2*LL: G11=G10+1+2*LL: Gl12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

350 FOR I-1 TO 2:FOR J-1 TO LL:A(G9)-2TTM(I,J):A(G10)-» 

TRT (I,J) :A(Gl1)=L(1I,J7) :A(G12)=VERSTAB(I,J) :A(G13) =PTTRVSF ( 
I,J):A(G14)=PITRFI (I,J) :G9=G9+1:G10=G10+1:G11=G11+1:G12=G1l 
2T1:G132G13-41:G142G14-1:NEXT J,I 

360 G152G14-1:G162G15-1-2*LL:G172G16-1-4-2*LL:G18-2 
G17+1+2*LL: G19=G18+1+2*LL: G20=G1941+2*LL: G21=G2041+2*LL 
370 FOR I=1 TO 2:FOR J=1 TO LL:A(G15)=AL90(I,J):A(G16)= 
AL270(I,J):A(G17)-M90(I,J):A(G18)-MCRIT(I,J):A(G19)-PS(I,J 
):A(G20)-PM(I,J):A(G21)-2PTT(I,J):G152G1541:G162G16-71:G172G 
17+1:G18=G18+1:G619=G19+1:G20=G20t1:G21=G21+1:NEXT J,I 

380 G22=G21+1:G23=G22+1+ENG:G24=G23+1+ENG:G25=G24+1+ENG: 
G26=G25+1+ENG: G27=G26+1+ENG: G28=G27+1+ENG: G29=G28+1+ENG: G3 
0=G29+1+ENG:G31=G30+1+ENG: G32=G31+1+ENG: G33=G32+1+ENG: G34= 
Peer TENG: G35=-G347+1+ENG: G36=G35+1+ENG: G3 /=G36+1+ENG: G38=G3 
7+1+ENG 

390 G39=G38+1+ENG:G40=G39+1+ENG: G41=G40+1+ENG 


τοι 


400 FOR I-1 TO ENG:A(G22)-2DW(I):A(G23)-SHP(I):A(G24)- 
SFC(I) :A(G25)=IC(I) :A(G26) =OC(1) :A(G27) =PMA(1) :A(G2e) INI 
A(1I) :A(G29)=MDT (1) :A(G30) =MTBF (I) :A(G31)=MTBR(I) :A(G32)=RC 
(I) :A(G33)=SV(1L) :A(G34) =AVAIL(I) :A(G35) S=RELY (1) :A(Gae) is 
NT (I) 

410 A(G37)=LC(I) :A(G38)=EWT (I) :A(G39)=YO(1I) :A(G40)=YM(I): 
A(G41)=NRPL(I) :G22=G22+1:G23=G23+1:G24=G24+1: G25=G25+1: G26 
=G626+1:G27=G27+1:G28=G28+1:G29=G29+1:G30=G30+1:G31=G31+1:G 
32=G632+1:G633=G6334+1:G634=G634+1: G35=G35+1:G36=G36+1 

420 G37=G637+1:G638=G38+1:G639=G39+1:G40=G40+1:G41=G41:NEXT I 
430 LL(5)=186+(46*LL)+(50*ENG) : LL=LL-1 

440 Z=7:OPEN "B:DATA1" FOR OUTPUT AS #1:PRINT #1, Z:FOR 
I=1 TO 10:PRINT #1, LL(1) : NEXT selects 

450 OPEN "B:DATA7" FOR OUTPUT AS #1:FOR a l TO (το. 
#1, ος NEXT I:CLOSE #1l1:RETURN:120 

460 
470 ' 
480 ' *** SECTION 7.1 ***%* 

490 ' 

5003: 

osa 

520 CLS:LOCATE 5,30,1:PRINT "*** SECTION 7.1 ** ο... 
7,31,0: PRINT "-FUEL FLOW RATE-": LOCATE 9,25,1: INPUT “Elias 
SFC AT MILITARY POWER";SFC(1):LOCATE 10,25,11: INPUT E 
SHP AT MILITARY POWER";SHP(1) 

530 LOCATE 12,25,0:INPUT "ENTER SFC AT NORMALC 
POWER";SFC(2):LOCATE 13,25,0:INPUT "ENTER SHP AT NORI IE 
POWER";SHP(2):LOCATE 15,25,0:INPUT "ENTER SFC ATCR UTNE 
POWER";SFC(3):LOCATE 16,25,0:1NPUT "ENTER SHP AT CRUISE 
POWER" SHP(3) 

540 FOR I=1 TO 3:WDOTF(I)=SFC(I)*SHP(T)*ENGINE:NEXT — 
I:LOCATE 18,25,0:PRINT "FUEL FLOW #FUEL/HR (MILITARY) 
=""sWDOTF(1):PRINT TAB(25) "FUEL FLOW #FUEL/HR (NORMAL) 
=";WDOTF(2):PRINT TAB(25) "FUEL FLOW #FUEL/HR (CRUISE) 

=" > WDOTF (3) 

550 LOCATE 23,30,1:INPUT "ANY CHANGES (Y/N)';AS:TIE AST 
THEN GOTO 520 ELSE IF AS="y" GOTO 520 ELSE IF AS="N" GOTO 
570 ELSE IF AS="n" GOTO 570 ELSE 

560 LOCATE 24,27,1:PRINT "you must enter (y/n) try 
again":GOTO 550 

570 IF X=9 THEN GOTO 590 ELSE RETURN 120 

οσα. l 

DO αν 

600 ! *** SECTION 7.2 *** 

610 ' 

6200 

630 CLS:LOCATE 5,30,1:PRINT '"*** SECTION 7.2 ***'" LOCATE 
7,20,1:PRINT "-FUEL FLOW AS A FUNCTTON ΟΡ ΤΕΤΡ, '᾽νὝνπ 

640 IF SFC(3)=0 THEN BETAH=(WDOTF(1)-WDOTF (2) )/(ENGINE* 
(SHP(1)-SHP(2))) ELSE BETAH-(WDOTF(1)-WDOTF(3))/(ENGINE* 
(SHP(1)-SHP(3))) 


To 


650 ALPHAH=WDOTF (1) - (ENGINE*BETAH*SHP (1) ) : LOCATE 
10,25,0:PRINT "ZERO HORSEPOWER INTERCEPT- ";ALPHAH:GOSUB 
1940:IF X=9 THEN GOTO 670 ELSE RETURN 120 

660 ! 

670 ' 

680 ' *** SECTION 7.3 *** 

690 ' 

700 ' 

710 CLS:LOCATE 5,30,0:PRINT 'Ixxx SECTION 7.3 ***":LOCATE 
7,18,0:PRINT 'l-FUEL FLOW RATE AT SPECIFICATION CONDITIONS- 
":DELTA(1)-21:THETA(1)-21:DELTA(2)-2(1-6.87535E-06*ALT)^ 
5.2561: THETA(2)2(459.6884 TEMP) /518.688 

720 FOR I-1 TO 2:ALPHAH(I)-ALPHAH*DELTA(I)*SQR(THETA(I)) 
:NEXT I:LOCATE 10,13,0:PRINT "ZERO HORSEPOWER INTERCEPT AT 
SPECIFICATION ALTITUDE =";ALPHAH(2):GOSUB 1940:IF X=9 THEN 
GOTO 740 ELSE RETURN 120 

EO ' 

740 ! 

750 ' *** SECTION 7.4 *** 

760 |! 

770 ' 

780 CLS:LOCATE 3,30,0:PRINT "*** SECTION 7.4 ***":LOCATE 
5,22,0: PRINT "-ZERO-VELOCITY HORSEPOWER INCREMENT-" 

790 FOR I-1 TO 2:PHANTOM(I)-ALPHAH(I)/BETAH:NEXT I:LOCATE 
10,25,0:PRINT "PHANTOM HORSEPOWER =";PHANTOM(1):GOSUB 
1940:IF X=9 THEN GOTO 820 ELSE RETURN 120 

800 ' 
810 ' 
820 ' 
830 ' 
840 ! 
850 CLS:LOCATE 5,30,0:PRINT ''xxx SECTION 7.5 ***":LOCATE 
7,28,0:PRINT "-MAXIMUM RANGE VELOCITY-": LOCATE 
23,1,0:PRINT "-W-COMP/" 

860 GOSUB 1980:BEEP:PRINT "-C-ALL/":LOCATE 10,25,0:PRINT 
"MAXIMUM RANGE VELOCITY";MRV:LOCATE 12,25,0:PRINT "SHP FOR 
MAXIMUM RANGE VELOCITY =";MRP1:FFR=MRP*BETAH: LOCATE 
14,25,0:PRINT "REFERRED HORSEPOWER =";MRP 

870 LOCATE 16,25,0:PRINT "FUEL FLOW REQUIRED -';FFR:GOSUB 
1940 

880 FOR I-1 TO 
LL-1:PTT(1,I)-SAVEP(I):O(I)sSAVEV(I):PS(1,I)-SAVEPS(I):PM( 
1,1)=SAVEPM(I):NEXT I 

890 IF X=9 THEN GOTO 920 ELSE RETURN 120 

900 ' 

910 ' 


*** SECTION 7.5 *** 


53 


920 ' kkk SECTION 7.6 *** 

930 ' 

940 ' 

950 CLS:LOCATE 5,30,0:PRINT "*** SECTION 7.6 ***";LOCATE 
7,25,0:PRINT "-MAXIMUM ENDURANCE VELOCITY-": LOCATE 
10,22,0:PRINT "ENTER MAXIMUM ENDURANCE VELOCITY =";MEV 
960 LOCATE 12,22,0:PRINT "SHP FOR MAXIMUM ENDURANCE 
VELOCITY =";PMIN 

970 ERSHPR=PHANTOM(1)+PMIN:EFFR=ERSHPR*BETAH:LOCATE 


14,22,0:PRINT "REFFERED HORSEPOWER σσ ΕΙ ΗΕ TO om 
16,22,0:PRINT "FUEL FLOW REQUIREDAZUAEBPRIOOSMENMMR 
980 IF X-9 THEN GOTO 1000 ELSE RETURN 120 

SEE 

1000 ' 

Ioro ~ *** SECTION 7.7 *** 
1502/0 

οσο 


1040 CLS:LOCATE 5,30,0:PRINT "***SECTION 7.7 ***";LOCATE 
7,18,0:PRINT "-SPECIFICATION CRUISE POWER AND FUEL FLOW- 
":LOCATE 23,1,0:PRINT '"-W-COMP/":FOR I-1 TO LL:IF 
O(I)=CRUISEV THEN II=I:GOTO 1050 ELSE NEXT I 

1050 VFl-0(II):FOR U-1 TO 2:GOSUB 1190:NEXT U:FOR I=1 TO 
2: RUPWR(I)-PHANTOM(I)-*PTT(I,0):CRUFFR(I)-CRUPWR(I)*BETAH: 
NEXT I 

1060 PRINT "~C=ALL/":LOCATE 10,15,0:PRINT "CRUISE FUEL 
FLOW REQUIRED AT SSL =";CRUFFR(1):LOCATE 12,15,0:PRINT 
"CRUISE FUEL FLOW REQUIRED AT SPCECIFICATION ALTITUDE 
="";CRUFFR(2):GOSUB 1940:IF X=9 THEN GOTO 1090 ELSE RETURN 
120 

1070 ' 

1080 ' 

1090 ' *** SECTION 7.8 *** 

του. 

1110 ' 

1120 CLS:LOCATE 5,30,0:PRINT "*** SECTION 7.8 ***":LOCATE 
7,27,0:PRINT 'l-TOTAL FUEL REQUIREMENTS-' : LOCATE 
10,23,0:1NPUT "ENTER SPECIFICATION MAXIMUM 

RANGE" ;MAXRG: TIME = MAXRG/CRUISEV 

iiO 

TFUEL=(.1*BETAH* (SHP(2)+PHANTOM(1)))+(.25*ERSHPR*BETAH) +(T 
IME*CRUFFR (2) ) :NGW2=NGW-FUEL+TFUEL: LOCATE 12,23,0:PRINT 
"TOTAL FUEL REQUIRED ="";TFUEL: LOCATE 14,23,0!PRINT "NEW 
GROSS WEIGHT =";NGW2:GOSUB 1940:RETURN 120 

1140 ' 
1150 ' 
1160 ' 
11701! 
1180 ' 

1190 L=0 

1200 'LL=LL+1:FOR I=1 TO 2:FOR J=1 TO 
LLL:POF1(I,J)=POF(I,J):PPF1(I,J)=PPF(I,J):PTFEF1I(IMO E TRE 


*** POWER CALCULATIONS ***x 
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J):PITRF1(I,J)=PITRF(I,J):POTRF1(I,J)=POTRF(I,J):PTTRF1(I, 
J)=PTTRF(I,J):NEXT J,I 

1210 RHO(1)=RHO:DA=PI*RA2:VT=OMEGA*R:TRA=PI*TRA2:VH2=GW(N) 
/ (2*RHO(U) *DA) :VF=VF1*1.687778:MU3=VF/VT:CT(U)=GW(N) / (RHO ( 
U) *DA*VT^2) : TIPLOSS (U) -1- (SOR (2*CT(U) ) /B) 

1220 PINF(U,L)-(GW(N)*SQR(((VF^2)/(-VH2*2) ) -SQR(((VF^2)/ 
(2*VH2) )*2+1) ) *SQR(VH2) ) /(550*TIPLOSS (U) ) : POF(U,L)=(SIGMA* 
CDO*RHO (U) *DA*VT^3* (1-4.3* (MU3^2) ) )/4400: PPF(U, L)  (RHO(U) * 
(VF43) *EFPA) /1100:PTF(U,L)=PINF(U,L)+POF(U,L)+PPF(U,L) 
1230 TTR=(((PT*550) /OMEGA) /TL) :CTTR=TTR/ (PI* (TR*4) *RHO(U) 
* (OMEGAT^1.5)) : TB(U) -1- ( (SOR(2*CTTR) /BT) )  PITR(U)- 

( (.ITR^1.5) /SQOR(2*PI* (TR^2) *RHO(U) ) )/TB(U) )/550: SIGMAT- (BT 
*TRC) / (PI*TR) : POTR(U) - (SIGMAT*CDO*RHO (U) *PI*(TR^5) *OMEGAT^ 
3) /4400: PTTR(U)=PITR(U)+POTR(U) 

1240 VF=1.687778*VF1:MU2=VF/ (OMEGA*R) : VITR=SQR((-(VF*2)/2) 
+SQR((((VF*2) /2)42)+((PTF(U,L) *550) *2)/((2*TRA*RHO(U) *TL*O 
MEGA) *2))) :PITRF(U,L)=(((PTF(U,L) *550) /(TL*OMEGA) ) *VITR) / ( 
550*TB(U) ) 

1250 POTRF(U,L)=SIGMAT*CDO*RHO(U) *TRA* ( (OMEGAT*TR) *3) *(1+ 
(4.3*(MU2^2)))/4400:PTTRF(U,L)-PITRF(U,L)-*POTRF(U,L) 

ποσο ' 

1280 ' 

1290 MM-M:BB-B:EE-BLTW:THT-EE*PI/180:W-ABS(EE) 

1300 M(1)=1116.89 

1310 CT=GW(N) / (RHO (U) *DA*VT^2) 

1320 B-1-(SQR(2*CT)/BB) 

1330 
T12.5*((B^2)4.5*(MU3^2)) :72-((B^3) /3) 4(. 5* (MU3^2) *B) :T3-(( 
B^2)/4)*(B^2*MU3^2) : TA2 (. 5*MU3) *( (B^2)-((MU3^2) /4) )  B1- (B^ 
2-.5*(MU3^2)) : A1124* ((MU3* (B^2) /2) -(MU3^3) /8)/ ((B^2) *B1): 
A12-(8*MU3*B)/(3*B1):A13-2(2*MU3* (B^2) )/B1:A14-(B^2-4 (3* (MU3 
E 72) /B 

1340 Al4-2(B^2-(3*MU3^2)/2)/B1:PPF(U,L)-RHO(U) *VF^3*EFPA/2: 
IF VFl«40 THEN LAM-SQR(CT/2):PPF(U,L)-PPF(U,L)/550 ELSE 
LAM=~(((PPF(U,L) ) /GW(N) )+(GW(N) /(2*RHO(U) *DA*VF) )) /VT: 
PPF(U,L)-PPF(U,L)/550 

1350 F(1)-(2*CT/(SIGMA*CLALPHA))-LAM*T1-THT*T3:F(2)-- 
LAM*A11-THT*A13:K(1,1)=T2:K(1,2)=T4:K(2,1)=Al12:K(2,2)= 
Al4:H=2 


50 | 

ESO ! SIMULTANEOUS EQUATION SOLVER USING MATRIX 

1560 ' DECOMPOSTION WITH FORWARD SUBSTITUTION IN LOWER 
Eo ' TRIANGULAR SYSTEM AND BACK-SUBSTITUTION IN UPPER 
l400 ' TRIANGULAR SYSTEM 

1410 ' 

1420 ' 


1430 FOR D-2 TO H:FOR I-1 TO D-1:FOR M-1 TO I-1:K(D,I) 
-K(D,I)-(K(D,M)*K(M,I)):K(I,D)-K(I,D)-(K(I,M)*K(M,D)) :NEXT 
M:K(D,I)-K(D,I)/K(I,I):NEXT I:FOR J-1 TO D-1:K(D,D)-K(D,D) 
EUKD,J)*K(J,D)):NEXT J,D 


135 


1440 FOR I-2 TO H:E-20:FOR J-21 TO I-1:G-K(I,J)*F(J): 
E-E-G:NEXT J:F(I)-F(I)-E:NEXT I 

1450 F(H)sF(H)/K(H,H) :FOR I-H-1 TO 1 STEP -1:P-0:FOR J-I-«1 
TO H:Q-F(J)*K(I,J):P-2P4Q:NEXT J:F(I)-(F(I)-P)/K(I,I):NEXT 
I:THO=F (1):TH2=F(2):FOR I=l TO 2:F(I)=0:FOR J=1 TO 
2:K(I,J)=O:NEXT J,I 

1460 AL90(U, L) =(THO+TH2+THT+ (LAM/(1+MU3) )) *180/PTI: 

AL270 (U, L) =(THO-TH2+THT+ (LAM/ (1+MU3) ) ) *180/PI 

1470 ! 

1480 ACK-AL270(U,L)-AMAX:IF ACK«0 THEN PS(U,L)-0 ELSE 
PS (U,L)=(ACK/4) *POF(U,L) 

1490 ! 

1500 ' 

1510 MTIP-VT/M (U) :MU3-VF/VT:M90(U,L)-MTIPx (1-HMU3):IF 
CAMS="N" OR CAMS="n" THEN MCRIT(U,L)=CM-(2.3*ABS (AL90 
(U,L))*PI/180) ELSE MCRIT(U,L)=CM-(2.3*AL90(U,L) *PI/180) 
1520 MD=M90(U,L)-MCRIT(U,L)-.06:IF MD<O THEN PM(U,L)=0 
ELSE 
PM(U,L)=(((.012*MD) +.1%*(MD‘*3) ) *SIGMA*RHO (U) *DA*VT*3) /550 
1530 ! 

1540 ' 

1550 PTT(U,L)=PTF(U,L)+PS(U,L)+PM(U,L)+PTTRF(U,L) 

1560 M=MM: B=BB: RETURN 

1570 ' 

1580 ' 

1590 ' *** PRINT DATA *** 

1600 ' 

1610 ' 

1620 IF AT-1 THEN LPRINT TAB(25) "TABLE OF CHAPTER SEVEN 
RESULTS" ELSE CLS:LOCATE 2,25,0:PRINT "TABLE OF CHAPTER 
SEVEN RESULTS" 2 

1630 LOCATE 4,12,0:PRINT "SFC MILITARY POWER'";TAB(57) 
SFC(1) 

1640 PRINT TAB(12) "SFC NORMAL POWER";TAB(57) SFC(2) 
1650 PRINT TAB(12) "SFC CRUISE POWER";TAB(57) SFC(3) 
1660 PRINT TAB(12) "SHP MILITARY POWER";TAB(57) SHP(1) 
1670 PRINT TAB(12) "SHP NORMAL POWER";TAB(57) SHP(2) 
1680 PRINT TAB(12) "SHP CRUISE POWER";TAB(57) SHP(3) 
1690 PRINT TAB(12) "FUEL FLOW MILITARY POWER"; TAB(57) 
WDOTF (1) 

1700 PRINT TAB(12) "FUEL FLOW NORMAL POWER"; TAB(57) 

WDOTF (2) 

1710 PRINT TAB(12) "FUEL FLOW CRUISE POWER";TAB(57) 
WDOTF (3) 

1720 PRINT TAB(12) "ZERO HORSEPOWER INTERCEPT AT 
SSL";TAB(57) ALPHAH(1) 

1730 PRINT TAB(12) "ZERO HORSEPOWER INTERCEPT AT SPEC. 
ALTITUDE" ;TAB(57) ALPHAH(2) 

1740 PRINT TAB(12) "PHANTOM HORSEPOWER AT SSL";TAB(57) 
PHANTOM (1) 
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1750 


PRINT TAB(12) "PHANTOM HORSEPOWER AT SPEC. 


ALTITUDE";TAB(57) PHANTOM(2) 


1160 
7 0 


VELOCITY" ; TAB(57) 


IF AT=1 THEN GOTO 1770 ELSE GOSUB 1940 
IF AT-1 THEN PRINT TAB(12) "MAXIMUM RANGE 
νι ΕΕΣ Ε ος POCATE 5,12, ,0:PRINT 


"MAXIMUM RANGE VELOCITY";TAB(57) MRV 


1780 


PRINT TAB(12) "MAXIMUM RANGE REFFERED 


HORSEPOWER";TAB(57) MRP 


1790 
1800 
MEV 

1810 


PRINT TAB(12) 
PRINT TAB(12) 


"MAXIMUM RANGE FUEL FLOW";TAB(57) FFR 
"MAXIMUM ENDURANCE VELOCITY" ;TAB(57) 


PRINT TAB(12) "MAXIMUM ENDURANCE REFFERED 


HORSEPOWER" ;TAB(57) ERSHPR 


1820 PRINT TAB(12) "MAXIMUM ENDURANCE FUEL FLOW";TAB(57) 
EFFR | 

1830 PRINT TAB(12) "CRUISE FUEL FLOW AT SSL";TAB(57) 
CRUFFR(1) 

1840 PRINT TAB(12) "CRUISE FUEL FLOW AT SPEC. 


ALTITUDE";TAB(57) CRUFFR(2) 


1550 
1860 
1870 
ELSE 
1880 
1890 
1900 
T910 
1520 
119/30 


1940: 


1940 
1950 
T960 
T970 
T980 
2990 
2000 
2010 
2020 
2030 


LL-T1: 


PRINT TAB(12) "TOTAL FUEL REQUIRED";TAB(57) TFUEL 
PRINT TAB(12) "NEW GROSS WEIGHT";TAB(57) NGW2 

IF AT-1 THEN LCOPY:LPRINT CHR$ (12):AT-0:RETURN 120 
GOSUB 1940:RETURN 120 


' 
' 
kkk HARD COPY OF DATA xxx 
! 
' 


ο ΟΤΕ 23/,1,0:PRINT '-W-PRINTER/W:GOSUB 
CLS:AT-1:GOSUB 1620:AT-20:RETURN 120 

LOCATE 25,27,0:PRINT "press any key to continue" 
' 

AS-INKEYS$:IF A$-"" THEN 1960 

RETURN 


' 
' 
I *** MAXIMUM ENDURANCE CALCULATIONS *** 
! 
! 


FOR I-1 TO 
SAVEP(I)-PTT(1,1):SAVEV(I)-O(I):SAVEPS(I)-PS(1,I):SAV 


EPM(I)=PM(1,1I):NEXT I 
2040 VMIN=PTT(1,1):II=1:FOR I=2 TO LL:IF PTT(1,1)<VMIN 
THEN VMIN-PTT(1,I):II-I 


2050 
2060 


NEAT I 
PMIN=VMIN: U=1:MEV=O(II): FOR T=1 TO 


19:U=1:VF1=0(II)+T:L=T:GOSUB 1210:IF PTT(1,T)<PMIN THEN 
PMIN=PTT(1,T) :MEV=VF1 


2070 
2080 


NEXT T 
FOR T-1 TO 19:VFl1-2O(II)-T:L-T:GOSUB 1210:IF 


PTT(1,L)«PMIN THEN PMIN-PTT(1,L):MEV-VF1 
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2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
2180 


EXI T 


*** MAXIMUM RANGE CALCULATIONS ***x 


N 
) 
' 
' 
' 
' 
i 
' 
i 


VEL-MAXFVEL-MEV:JJ21:ANG(JJ-1)2200:FOR JJ-1 TO 


VEL: L=1: U=1: VFL=MEVtJJ : GOSUB 


ZO: 


2190 


PWR=PHANTOM(1)+PTT(1,1):ANG(JJ)=PWR/VF1 
IF ANG(JJ)«ANG(JJ-1) THEN MRP=PWR:MRP1=PWR- 


PHANTOM(1) :MRV=VF1 ELSE GOTO 221 


2200 
2210 


NEXT JJ ; 
RETURN 
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USE CHAPTER EIGHT 


10 KEY(5) OFF 

20 !žkkkkkkkkkkkkkkkkk CHAPTER EIGHT ΑΧΧΧΧΧΧΧΧΧΑΧΧΧΧΧΧΧΧΧΧΧ 
B 

40 ' MISCELLANEOUS CALCULATIONS 

50 ' 

6Q  ' Je x ee e de dee e de de de de de de de de de de e de de de de de de e e e e de e de de de eoe de de de eoe e e eek e e ke xk 
go 

80 ' *** CHAPTER EIGHT MAIN PROGRAM  *** 

90 ! 

100 ' 

110 CLS:PRINT 'l-C-ALL/'': PRINT 'l-L-CHg/' 

120 KEY(9) ON:ON KEY(9) GOSUB 130 

130 COLOR 1,1,1:CLS:LOCATE 23,1;0:PRINT 
!"-W-C8MAIN/":INPUT;"",x 

140 COLOR 15,1,1:IF X-1 THEN GOSUB 520 ELSE IF X-2 THEN 
GOSUB 650 ELSE IF X=3 THEN GOSUB 770 ELSE IF X=4 THEN 
GOSUB 920 ELSE IF X=5 THEN GOSUB 1100 ELSE IF X=6 THEN 
GOSUB 520 ELSE IF X=7 THEN GOSUB 1630 ELSE 

150 IF X=8 THEN GOSUB 1820 ELSE IF X=9 THEN GOSUB 220 ELSE 
IF X=10 THEN CLS:LOCATE 23,1,0:PRINT "~W=LOAD/": CHAIN 
"HDI", ALL 


160 LOCATE 23,54,1:PRINT " ":GOTO 140 
ο 

180 ' 

190 ' *** STORE DATA ON FILE DISK *** 

200 ' 

210 | 

220 CLS:LOCATE 23,1,0:PRINT "~W=DISK/":GOSUB 1850:LOCATE 
25,27,1:PRINT " ": LOCATE 


23,1,0:PRINT "-W-SAVE/" 

230 A(1)5SGW:A(2)-2GW1:A(3)-2WE:A(4)-VTIPMAX:A(5)-R: 
A(6)=OMEGA:A(7)=CT:A(8)=SIGMA:A(9)=B:A(10)=C:A(11)=AR:A(12 
)=CL:A(13)=CLALPHA:A(14)=CDO:A(15)=DL:A(16)=MBL:A(17)=MU:A 
(18) =MAXFVEL:A(19)=TIPLOSS:A(20)=PIN:A(21)=P0:A(22)=PT:A(2 
3)=HP:A(24)=PERINDP 

240 V=24:FOR I=l TO 3:FOR J=1 TO 15:V=V+1:Q=J+24:A(V)=W(Q- 
24,1):NEXT J,I:FOR I=1 TO 3:A(I+69)=W2A(I):A(I+72)=W2B(I): 
A(I+75) =W6A(I) :A(I+78)=W6B(I) :A(I+81)=W6C(I) :NEXT 
I:A(85)-N:A(86)-WE(N):A(87) 2GW(N) :A(88) -DL(N-1) : 
A(89)=FM(N-1) :A(90)=FL:A(91)=IRLG 

250 A(92)=NW 

260 A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96)=FUEL: 
A(97)-PEOPLE:A(98)-UL:A(99)-SPECIAL:A(100)-ENGINE:A(101)-Z 
Z:A(102)=AB:A(103)=GR:A(104)=RH:A(105)=H:A(106)=D:A(107)=P 
INI:A(108)=PTI:A(109)=M:A(110) =EFPA:A(111)=RHO(2):A(112)=M 
M:A(113)=M(2):A(114 )=CRUISEV 

270 A(115)=CRU:A(116)=CRU2:A(117)=MAXF:A(118) =MAXF2: 
A(119) =MAXCRU1:A(120) =ALT:A(121)=TEMP:A(122)=LL:A(123)=TR: 
A(124)=TRPM:A(125) =OMEGAT:A(126)=TCDO:A(127)=BT:A(128)=TAR 
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:A(129)=TRC:A(130)=TTR:A(131)=CTTR:A(132)=TRB:A(133)=SIGMA 
T:A(134)=V:A(135)=SPAN 

280 A(136)=S:A(137)=SWP:A(138)=SWEEP:A(139)=LAVS: 
A(140)-2VSAR:A(141)-BETA2:A(142)-2T:A(143)-2T2:A (144) 2T3:A(14 
5)2CLATR:A(146)-ALTR:A(147)-ALTRDEG:A(148)-TL:A (149) -BLTW: 
A(150)=CM:A(151) =THT:A(152)=AM:A(153) =AMAX:A(154) =PINIGE:A 
(155) =PTTI:A(156)=RSHP 

290 A(157)=STYPE:A(158)=ICESHD:A(159)=STRTIN:A(160)=INLET: 
A(161)=BARR:A(162) =PARTSEP:A(163)=EAPS:A(164)=HDIF:A(165)= 
INRED:A(166)=EEDS:A(167)=RSHP1:A(168)=RSHP2:A(169)=RSHP3:A 
(170) =RSHP1A:A(171)=RSHP2A:A(172)=RSHP3A:A(173)=ESHP:A(174 
)=LOSS:A(175)=ENG 

300 A(176)=EN:A(177)=TRPWR:A(178)=TRWT:A(179)=NGW: 
A(180)=NPT:A(181)=NDL:A(182)=NFM:A(183)=NPERINDP:A(184)=NP 
ERDIFP:A(185)=NPERDIFW:FOR I=1 TO 
3:A(185+1)=SFC(I) :A(188+1I) =SHP(I) :A(191+1I)=WDOTF (I) :NEXT 
I:A(195) =BETAH:A (196) =ALPHAH (1) :A(197)=ALPHAH (2) 

310 A(198)=PHANTOM(1) :A(199)=PHANTOM(2):A(200)=MRV: 
A(201)=MRP:A(202)=FFR:A(203) =MEV:A(204)=ERSHPR:A(205) =EFFR 
:A (206) =CRUPWR (1) :A(207)=CRUPWR(2) :A(208) =CRUFFR(1) :A(209) 
=CRUFFR (2) :A(210)=TFUEL:A(211)=TIME:A(212) =NGW2:A(213)=PTF 
1:A(214)-PDGW2 

320 A(215)=DIF:A(216) =NGW3:A(217)=MCV:A(218)=VVERT: 

A(219) =MHA:A(220) =SC:A(221) =BW:A(222)=BH:A(223)=FL:A(224)= 
VEFPA:A (225) =MCSHP:A(226)=T2FUEL:A (227) =LS4:G=228 

330 LL-LLHl:FOR I-1 TO LL:A(G)-2O(I):G-2G-1:NEXT 
I:G=G+1+LL:G1=G+1+2*LL: G2=G1+1+2*LL:G3=G2+1+2*LL:G4=G3+1+2 
XD 

340 FOR I-1 TO 2:FOR J-21 TO LL:A(G)sPINF(I,J): 
A(G1)-POF(I,J):A(G2)2PPF(I,J):A(G3)2PTF(I,J):A(GA4)-TM(I,J) 
:G-G41:G12G141:G22G241:G326341:642G441:NEXT J,I 

350 G5=G4+2:G6=G5+2:G7=G6+2:FOR I=1 TO 2:A(G4)=PITR(I): 
A(G5)=POTR(I) :A(G6)=PTTR(I) :A(G7) =CLTR(I) :G4=G4+1:G5=G5+1: 
G6=G64+1:G7=G7+1:NEXT 1:G8=G7+1+2* (LL-1) :G9=G8+1+2* (LL-1) 
360 FOR I-1 TO 2:FOR J22 TO LL:A(G7)-PITRF(I,J): 
A(G8)=POTRF(I,J):A(G9)=PTTRF(I,J):G7=G7+1:G8=G8+1l:G9=G9+1: 
NEXT J,1:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL: 
G13=G12+1+2*LL:G14=G13+1+2*LL 

370 FOR I=1 TO 2:FOR J=1 TO LL:A(G9)=TTM(I,Jd): 

A(G10)=TRT (I,J) :A(G11)=L(I,J) :A(G12)=VERSTAB(1,d) λα ἃ- 
TTRVSF(1I,J):A(G14) =PITRFI (I,J) :G9=G9+1:G10=G10+1:G11=G11+1 
:G12=G12+1:G13=G13+1:G14=G14+1:NEXT J,I 

380 G15=G144+1:G16=G15+1+2*LL:G17=G16+1+2*LL:G18= 
G17+1+2*LL:G19=G18+1+2*LL: G20=G19+14+2*LL:G21=G20+1+2*LL 
390 FOR I=1 TO 2:FOR J=1 TO LL:A(G15)=AL90(I,dJ) :A(G16)= 
AL270(I,J):A(G17)-M90(I,J):A(G18)-MCRIT(I,J) :A(G19)=Ps (am 
):A(G20)=PM(I,J) :A(G21)=PTT (I,J) :G15=G15+1:G16=G16+1:G617=G 
17+1:G18=G18+1:G19=G19+1:G20=G204+1:G21=G21+1:NEXT J,I 

400 G22=G21+1:G23=G22+1+ENG:G24=G23+1+ENG:G25=G24+1+ENG: 
G26=G25+1+ENG: G27=G26+1+ENG: G28=G27+1+ENG : G29=G28+1+ENG:G3 
0=G29+1+ENG:G31=G30+1+ENG: G3 2=G31+1+ENG: G33=G32+1+ENG:G34= 
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G33+1+ENG:G35=G34+1+ENG:G36=G35+1+ENG:G37=G36+1+ENG:G38=G3 
7+1+ENG 

410 G39=G38+1+ENG:G40=G39+1+ENG:G41=G40+1+ENG 

προ FOR Isl TO 

ENG:A(G22)=DW(I) :A(G23)=SHP(I) :A(G24)=SFC(I): 
A(G25)-IC(I):A(G26)-2OC(I):A(G27) PMA(I):A(G28) 2MTBMA (I) :A( 
G29)-MDT(I):A(G30)-MTBF(I):A(G31)-MTBR(I):A(G32)-RC(I):A(G 
33)-SV(I):A(G34)7AVAIL(I):A(G635)-RELV(I):A(G36)-MAINT(I) 
430 A(G37)-2LC(I):A(G38)-EWT(I):A(G39) -YO(I) :A(G40)-YM(I): 
A (G41) =NRPL(I) :G22=G22+1:G23=G234+1:G24=G24+1:G625=G25+1:626 
=G26+1:G27=G27+1:G28=G28+1:G29=G29+1:G30=G30+1:G31=G31+1:G 
32=G632+1:633=G633+1:634=G344+1:635=G35+1:636=G364+1 

440 G37=G37+1:G38=G38+1:G39=G39+1:G40=G40+1:G41=G41+1:NEXT 
Hm 

450 LL(6)=230+(47*LL)+(50*ENG) : LL=LL-1 

460 Z-8:OPEN "B:DATA1" FOR OUTPUT AS #1:PRINT #1, Z:FOR 
T=] TO IO:PRINT 421, LL(I):NEXT I:CLOSE #1 

470 OPEN "B:DATA8" FOR OUTPUT AS £1:FOR I-1 TO LL(6):PRINT 
#1, A(I):NEXT I:CLOSE #1:RETURN 120 

480 ' 

490 ! 
500 ! 
510 ! 
520 ' 
b30: ' 
540 CIS:LOCATE 3,30,1:PRINT "*** SECTION 8.1 ***":LOCATE 
5,24,0:PRINT "-DESIGN GROSS AND EMPTY WEIGHT-": LOCATE 
1,1,0:PRINT "~W=COMP/": PDGW=(ABS (GW(N) -NGW2) /NGW2) *100: 
EW1=GW (N) -(PEOPLE*250) -FUEL-UL: EW2=NGW2- (PEOPLE*250) - 
TFUEL-UL: PDEW= (ABS (EW1-EW2) /EW2) *100 

550 G1=GW(N) :GW(N) =NGW2: VF1=0:U=1: L=0: VF1=0:GOSUB 
1210:GW(N)=G1: PTF1=PTF1(1)+PTTR1(1):PRINT "~C=ALL/": LOCATE 
7,10,0:PRINT "HOVER POWER FOR DESIGN GROSS WEIGHT 

=";PTF1: PDGW2=(ABS (GW(N) -NGW2) /NGW2) *100 

560 LOCATE 9,10,0:PRINT "PERCENT DIFFERENCE IN DESIGN 
GROSS WEIGHT ="; PDGW2 

570 DIF=SGW-NGW2:LOCATE 11,10,0:PRINT "DIFFERENCE IN 
DESIGN AND SPECIFICATION GROSS WEIGHT =";DIF: LOCATE 
13,10,0:PRINT "OPTIONS ARE:":LC=UL+DIF: LOCATE 
15,15,0:PRINT "1. CHANGE INTERNAL LOAD CAPACITY TO";LC 
580 FW=TFUEL+DIF : NRANGE=CRUISEV* ( (FW) -(.1*BETAH* (SHP(2) + 
PHANTOM(1)))-(.25*ERSHPR*BETAH) )/ (CRUFFR(2)) : LOCATE 
16,15,0:PRINT "2. CHANGE FUEL WEIGHT TO";FW;"WITH RANGE 
OF";NRANGE: LOCATE 17,19,0:PRINT "FROM FUEL WEIGHT 

oe, (FUEL 

590 LOCATE 19,10,0:PRINT "PRESENT GROSS 

WEIGHT" ;NGW2:LOCATE 20,10,1:INPUT;"ENTER GROSS 

WEIGHT" ,NGW3:LOCATE 21,10,0:INPUT;"ENTER USEFUL LOAD 

ume LOCATE 22,10,0:INPUT;"ENTER FUEL WEIGHT ", T2FUEL 

600 IF X=6 THEN GOTO 620 ELSE RETURN 120 

EXO ' 


*** SECTION 8.1 *** 
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620 ' 

630 ' *** SECTION 8.2 *x** 

640 ' 

650 ' 

660 CLS:LOCATE 5,31,1:PRINT "*** SECTION 8.2 ***";:LOCATE 
7,29,1:PRINT "-MAXIMUM RATE OF CLIMB-":LOCATE 23,1,0:PRINT 
"-W-COMP/" 

670 MCSHP=100000!:FOR T=1 TO 21:U=1:VF1=MEV+T- 
1:MRC=1:GOSUB 1210:MRC=0:MCS=PTT1(1)+.006*PINF1(1):IF 
MCS<MCSHP THEN MCSHP=MCS:MCV=VF1 

680 NEXT T 

690 FOR T=1 TO 20:U=1:VF1=MEV-T:MRC=1:GOSUB 
1210:MRC=0:MCS=PTT1(1)+.006*PINF1(1):IF MCS<MCSHP THEN 
MCSHP=MCS :MCV=VF1 

700 NEXT T 

710 LS3=((((ENGINE*SHP(2))-10) /(1+INLET) )/(1+EAPS) )/ 
(1+EEDS) 

720 IF ENGINE=1 THEN LS4=LS3/1.03:GOTO 730 ELSE IF 
ENGINE=2 THEN LS4=(LS3/1.1)/1.03:GOTO 730 ELSE IF ENGINE=3 
THEN LS4=((LS3/1.15)/1.03)/1.01333333#:GOTO 730 

730 FOR I=l1 TO 3:SOUND 700,9:SOUND 500,9:NEXT I: PRINT 
"~C=LAST/":LOCATE 10,25,0:PRINT "MAXIMUM RATE OF CLIMB 
AIRSPEED =";MCV:VVERT=66000! *(LS4-MCSHP) /NGW3 

740 LOCATE 14,35,0:PRINT " ": LOCATE 
12,25,0:PRINT "MAXIMUM RATE OF CLIMB -'";VVERT;'fpm'":GOSUB 
1850:IF X=6 THEN GOTO 760 ELSE RETURN 120 

750 ' 

760 ' 

77008 *** SECTION 8.3 xxx 

780 ' 

790 ' ο 

800 CLS:LOCATE 5,30,0:PRINT "*** SECTION 8.3 *x**":LOCATE 
7,25,0:PRINT "-MAXIMUM HOVER ALTITUDE, IGE-": LOCATE 
23,1,0:PRINT 

" ~W=COMP/": VF1=0:G1=GW(N) :GW(N) =NGW3 :AL(1)=7120:PA=1:PR(U) 
=0:U=0 

810 LS=(((((ENGINE*SHP(2))-10) /(1+INLET) ) /(1+EAPS) )/ 
(1+EEDS) ) 

820 IF ENGINE=1 THEN PTASL=LS/1.03:GOTO 830 ELSE IF 
ENGINE=2 THEN PTASL=(LS/1.1)/1.03:GOTO 830 ELSE IF 
ENGINE=3 THEN PTASL=((LS/1.15)/1.03)/1.01333333#:GOTO 830 
830 K1=6.87535E-06: D=2*R: H=RH+5 

840 IF (PA-PR(U))>.01 THEN U=U+1:GOTO 870 ELSE AL(U)=AL(U- 
1):AL1=1:GOTO 870 

850 IF (PA-PR(U))>.01 THEN U=U+1:GOTO 870 ELSE AL(U)=AL(U- 
1) :AL1=2:GOTO 870 

860 IF (PA-PR(U))>.01 THEN -U=U+1:GOTO 870 ELSE GOTO 890 
870 THETA=1-(K1*AL(U) ) : DELTA=(1- 
(KL*AL(U)))^5.2561:RHO(U)-RHO*((1-Kl*AL(U))^4.2561):GOSUB 
1210:PA-PTASL*DELTA*SQR(THETA):PINIA-((-.1276*((H/D)^4)- 
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woen (H/D) S)=1.4569x2z#( (H7D)22)+1.3432*(H/D)+.5147)* 
PINF1(U)):PR(U)=PINIA+POF1(U)+PTTR1 (U) 

880 IF AL1=1 THEN AL(U+1)=AL(U)+100:GOTO 850 ELSE IF ALl-2 
THEN AL(U+1)=AL(U)+10:GOTO 860 ELSE 

AL(U+1) =AL(U)+1000:GOTO 840 

890 MHA-AL(U):FOR I-1 TO 3:SOUND 700,9:SOUND 500,9:NEXT 
I:PRINT "~C=ALL/":LOCATE 10,25,0:PRINT "MAXIMUM HOVER 
ALTITUDE =";MHA:GOSUB 1850:IF X=6 THEN GOTO 940 ELSE 
RETURN 120 

200 | 

EN. ' 

920 ' *** SECTION 8.4 ***x* 

συ 

940 ' 

BIBEMEOESSLOCATE 3,30,0:PRINT "*** SECTION 8.4 ***":LOCATE 
BEMENTOJPRINT '-SERVICE CEILING-'W:LOCATE 23,1,0:PRINT 
"-W-COMP/":U-20:PA-1:PR(0)-20 

960 LS-(((((ENGINE*SHP(2))-10)/(1-*INLET))/(1-EAPS)) 

A (1+EEDS)) 

970 IF ENGINE-1 THEN PTASI-LS/1.03:GOTO 980 ELSE IF 
ENGINE-2 THEN PTASL-(LS/1.1)/1.03:GOTO 980 ELSE IF 
ENGINE-3 THEN PTASL-((LS/1.15)/1.03)/1.01333333$1:GOTO 980 
980 K1=6.87535E-06:ALA(1)=7120: VFL=MCV: TV=NGW3 * (100/60) 
/550:AL1=0 

ο ο. (| PA=PR(U))>.01 THEN U=U+1:GOTO 1020 ELSE 

ALA (U) =ALA (U-1) :AL1=1:GOTO 1020 

1000 IF (PA-PR(U))>.01 THEN U=U+1:GOTO 1020 ELSE 

ALA (U) =ALA(U-1) :AL1=2:GOTO 1020 

1010 IF (PA-PR(U))>.01 THEN U=U+1:GOTO 1020 ELSE GOTO 1040 
1020 THETA-1-(Kl*ALA (U)):DELTA-(1-(Kl*ALA(U)))^ 
5.2561:RHO(U)-2RHO*((1-Kl*ALA(U))^4.2561):MRC-1:GOSUB 
1210:MRC20:PPF2-72.006*PINFl(U):PA-PTASL*DELTA*SQR(THETA) : PR 
(U)=PTT1(U)+PPF2+TV 

1030 IF AL1=1 THEN ALA(U+1)=ALA(U)+100:GOTO 1000 ELSE IF 
AL1=2 THEN ALA(U+1)=ALA(U)+10:GOTO 1010 ELSE 

ALA (U+1)=ALA(U)+1000:GOTO 990 

1040 
DA=R*2*PI:VI=SQR(GW(N) /(2*RHO(1) *DA) ) : CT=GW(N) / (RHO(1) *DA* 
(OMEGA*R)^2):TIPLOSS-1-(SQR(2*CT)/B):PI-GW(N)^1.5/ 
(SOR(2*RHO(1)*DA)*TIPLOSS) 

1050 VEFPA-(.012*PI)/(RHO(1)*VI^3):SC-ALA(U):FOR I-1 TO 
EEOUND 700,9:SOUND 500,9:NEXT I:PRINT "~C=ALL/": LOCATE 
MODS O: PRINT "SERVICE CEILING =";SC:GOSUB 1850:IF X-6 
THEN GOTO 1100 ELSE RETURN 120 

IOS ' 

MODO ' 

WOBO ' kkk SECTION 8.5 **% 

πο ' 

BOO ! 

IMBNOSOLS:LOCATE 5,30,0:PRINT "*** SECTION 8.5 ***":LOCATE 
7,32,0: PRINT "-FUSELAGE SIZING-" 
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1120 IF M=1 THEN BW=7.5:BH=4.5 ELSE IF M=2 THEN 
BW=8:BH=4.5 ELSE IF M=3 THEN BW=8:BH=5.4 ELSE IF M=4 THEN 
BW=8:BH=8.5 ELSE IF M=5 THEN BW=8.5:BH=8.5 ELSE IF M=6 
THEN BW=8.899999:BH=8.899999 

1130 IF UL«5000 THEN FL-1.5*TL ELSE FL-1.34*TL 

1140 LOCATE 10,30,0:PRINT "BODY WIDTH =";BW: LOCATE 
12,30,0:PRINT "BODY HEIGHT =";BH: LOCATE 14,30,0:PRINT 
"FUSELAGE LENGTH =";FL:GOSUB 1850:RETURN 120 

1150 
1160 
1170 
1180 
1190 
1200 
1210 RHO(1)-2RHO:DA-PI*R^2:VT-OMEGA*R: TRA-PI*TR^2: 
VH2=GW(N) /(2*RHO(U) *DA) : VF=VF1*1. 687778 :MU3=VF/VT: CT=GW (N) 
/ (RHO (U) *DA*VT^2) : TIPLOSS=1-(SQR(2*CT) /B) 

1220 PINF1(U)=(GW(N) *SQR(((VF*2) /(-VH2*2) )+SOR(((VF*2) / 
(2*VH2) )*2+1) )*SQR(VH2) ) /(550*TIPLOSS) : POF1(U) =(SIGMA*CDO* 
RHO (U) *DA*VT*3* (144.3% (MU3%2) )) /4400: PPF1 (U) =(RHO(U) *(VF^3 
) *EFPA) /1100: PTF1(U) =PINF1(U)+POF1(U)+PPF1(U) 

1230 TTR-(((PT*550)/OMEGA) /TL) : CTITR-TTR/ (PI*(TR^4)* 

RHO(U) * (OMEGAT^1.5)):TB-1-((SQR(2*CTTR)/BT) ) s PITR1(U)- 

( (UTTR^1.5) /SQR(2*PI*(TR^2) *RHO(U)))/TB) /550: SIGMAT- (BT*TR 
C)/(PI*TR):POTR1(U)-(SIGMAT*CDO*RHO(U) *PI* (TR^5) *OMEGAT^3) 
/4400:PTTR1 (U) =PITR1(U)+POTR1(U) 

1240 IF MRC=l1 THEN GOTO 1250 ELSE RETURN 

1250 VF=1.687778*VF1:MU2=VF/ (OMEGA*R) : VITR-SQR( ( - (VF^2) /2) 
+SQR((((VF*2) /2)*2)+((PTF1(U) *550)*2) /((2*TRA*RHO(U) *TL*OM 
EGA) *2))):PITRF2(U)=(((PTF1(U) *550) /(TL*OMEGA) ) *VITR) / (550 
*TB) 

1260 POTRF2 (U) =SIGMAT*CDO*RHO (U) *TRA* ( (OMEGAT*TR) *3) * 
(1+(4.3*(MU2*2)))/4400:PTTRF1(U) =PITRF2 (U) +POTRF2 (U) 

1280 ! 

1290 ' 

1300 MM-M:BB-B: EE-BLTW: THT-EE*PI/180:W-ABS (EE) 

1310 M(1)=1116.89 

1320 CT-GW(N)/ (RHO(U) *DA*VT^2) 

1330 B-1-(SQR(2*CT)/BB) 

1340 
T12.5*((B^2)4.5*(MU3^2) ) T22((B^3) /3) *(. 5* (MU3^2) *B) : T3- (( 
B^2)/4)*(B^24*MU3^2) :T4-(.5*MU3) *( (B^2) X ((MU3^2) /4) ) —B1- (B^ 
2-.5*(MU3^2)) : A1ll-4*((MU3* (B^2) /2) -(MU3^3) /8) / ((B^2) *B1): 
A12-(8*MU3*B)/(3*B1):A132(2*MU3*(B^2) )/B1:A14-(B^2- (3* (MU3 
ΤΟΣ 

1350 Al4-2(B^2-(3*MU3^2)/2)/B1:PPFl1(U)-RHO(U)*VF^3*EFPA/2: 
IF VF1<40 THEN LAM=SQR(CT/2):PPF1(U)=PPF1(U)/550 ELSE 
LAM=-(((PPF1(U) ) /GW(N) )+(GW(N) /(2*RHO(U) *DA*VF) ) )/VT: 
PPF1(U) =PPF1(U) /550 


*** POWER CALCULATIONS *** 
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1360 F(1)2(2*CT/(SIGMA*CLALPHA))-LAM*T1-THT*T3:F(2)-2- 
LAM*All-THT*A13:K(1,1)-2T2:K(1,2)2T4:K(2,1)2A12:K(2,2)-» 
Al14:H-22 


HS ' 
1380 SIMULTANEOUS EQUATION SOLVER USING MATRIX 
1590 DECOMPOSTION WITH FORWARD SUBSTITUTION IN LOWER 


1410 TRIANGULAR SYSTEM 

1420 

430 ' 

1440 FOR D=2 TO H: FOR I=1 TO D-1:FOR M=1 TO I-1:K(D,I)= 
EU T)-—(K(D,M) *K(M,I)):K(I,D)zK(I,D)-(K(I,M)*K(M,D)):NEXT 
MAK(D,;I)-K(D,I)/K(I,I):NEXT I:FOR J-1 TO D-I:K(D,D)-K(D,D) 
IK (D,J)*#K(J,D)):NEXT J,D 

1450 FOR I=2 TO H:E=0:FOR J=1 TO I-1:G=K(I,J)*F(J): 
E=E+G:NEXT J: F(1I)=F(1I)-E:NEXT I 

1460 F(H)=F(H)/K(H,H): FOR I=H-1 TO 1 STEP -1:P=0:FOR J=I+1 
TO H:Q=F(J) *K(I,J):P=P+Q:NEXT J:F(I)-(F(I)-P)/K(I,I):NEXT 
I: THO=F(1) :TH2=F(2):FOR I=1 TO 2:F(I)=0:FOR J=1 TO 
EENS(I,J)-2O:NEXT J,I 

1470 AL901(U)=(THO+TH2+THT+ (LAM/ (1+MU3) )) *180/PI:AL2701(U) 
= (THO-TH2+THT+ (LAM/ (1+MU3) ) ) *180/PI 

1480 | 

1490 ACK=(AL2701(U)-AMAX):IF ACK<0 THEN PS1(U)=0 ELSE 
PS1(U) =(ACK/4) *POF1(U) 

E500 ' 

Elo ' 

1520 MTIP=VT/M(1) :MU3=VF/VT:M901(U) =MTIP* (1+MU3): IF 
CAMS="N" OR CAMS="'n"" THEN MCRIT1(U)=CM- 
(2.3*ABS(AL9O1(U))*PI/180) ELSE MCRIT1(U)-CM- 
(2.3*AL901(U) *PI/180) 

1530 MD=M901 (U)-MCRIT1(U)-.06:IF MD<0O THEN PM1(U)=0 ELSE 
PM1(U)2(((.012*MD)-*.1* (MD^3) ) *SIGMA*RHO (U) *DA*VT^3)/550 
1540 | 

750 ' 

1560 PTT1(U)=PTF1(U)+PS1(U)+PM1(U)+PTTRF1(U) 

1570 M=MM: B=BB: RETURN 

1580 ' 

590 ! 

1600 ' *** PRINT DATA ***x* 

iol ' 

1620 ' 

1630 IF AT=1 THEN LPRINT TAB(25) "TABLE OF CHAPTER EIGHT 
BEEEUDPS"- EDSE CLS:LOCATE 2,25,0: PRINT "TABLE OF CHAPTER 
Becht RESULTS" 

1640 LOCATE 4,12,0:PRINT "HOVER POWER FOR DESIGN GROSS 
WEIGHT" ;TAB(57) PTFI 

1650 PRINT TAB(12) "PERCENT DIFFERENCE IN DESIGN GROSS 
WEIGHT";TAB(57) PDGW2 

1660 PRINT TAB(12) "DIFFERENCE IN DESIGN AND SPEC. GROSS 
METEHTT';TAB(57) DIF 


' 
' 
1400 ' TRIANGULAR SYSTEM AND BACK-SUBSTITUTION IN UPPER 
' 
' 
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1670 PRINT TAB(12) "NEW GROSS WEIGHT";TAB(57) NGW3 
1680 PRINT TAB(12) "MAXIMUM RATE OF CLIMB 
AIRSPEEDW;TAB(57) MEV 

1690 PRINT TAB(12) “MAXIMUM RATE OF CLIMB"; TAB(5/7)) V7 aes 
1700 PRINT TAB(12) "MAXIMUM RATE OF CLIMB POWER 
AVAILABLE" ;TAB(57) LS4 

1710 PRINT TAB(12) “MAXIMUM HOVER ALTITUDE, IZGEUSEABODEM 
MHA 

1720 PRINT TAB(12) "SERVICE CEILING Εν,» = 

1730 PRINT TAB(12) "BODY WIDTH"; TAS 27 ae 

1740 PRINT TAB(12) “BODY HEIGHIE TABS ἘΠ 

1750 PRINT TAB(12) “FUSELAGE LENG” TAB (57 ae 

1760 IF AT=1 THEN LCOPY:LPRINT CHRS (12) :AT=0:GOTO 120 
BESESGOSUB 1850: RETURNS IZO 

17051 

1760 

179307! *** HARD COPY OF DATA *** 

18007! 

1810.1 

1820 CLS:LOCATE 23,1,0:PRINT "~-W=PRINTER τ: 
1850:CLS:AT=1:GOSUB 1630:AT=0:RETURN 120 

TS O! 

1840 ' 

1850 LOCATE 25,27,0:PRINT "press any key to Continue 
UO S 

1870 AS=INKEYS:IF AS=""" THEN 1870 

1880 RETURN 
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K. CHAPTER NINE 


10 !*#*w*******w*********** CHAPTER NINE *#=< === ke ke kk 
DO ' 
20 ' FINAL PERFORMANCE CHECKS 
40 ' 
50 likkkkikkikkikxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkikikkix 
60 ' 

! *** CHAPTER NINE MAIN PROGRAM xxx 
80 ' 

' 
lOO CLS:PRINT "-C-ALL/":PRINT "-L-CH9/" 
IMKROMGOLOR 1,1,1:CLS:LOCATE 23,1,0:PRINT 
"~W=C9MAIN/":INPUT;"",X 
120 COLOR 15,1,1:IF X=1 THEN GOSUB 160 ELSE IF X=2 THEN 
GOSUB 620 ELSE 
ΤΕ X=3 THEN CLS:LOCATE 25,27,0:PRINT "~W=LOAD/":CHAIN 
"HD1",,ALL 
i40 ' 
HE ' 
TOO ! *** LIST FINAL SUMMARY *** 
170 ! 
T80 ! 
190 CLS: LOCATE 10,20,0:INPUT "ENTER SPECIFICATION SERVICE 
mEUPBSING";SSC:LOCATE 12,20,0:INPUT "ENTER SPECIFICATION 
GevER CEILING";SHC: LOCATE 14,20,0:INPUT "ENTER 
SPECIFICATION ROTOR RADIUS";SR 
200 LOCATE 16,20,0: INPUT "ENTER SPECIFICATION MAXIMUM RATE 
OF CLIMB" ;SMRC: LOCATE 18,20,0:INPUT "ENTER SPECIFICATION 
PUSELAGE LENGTH";SFL: LOCATE 20,20,0:INPUT "ENTER ENGINE 
TYPE (ie. T58-GE-10)";TYPES$ 
210 LOCATE 23,27,0:INPUT "ANY CHANGES (Y/N)";AS:IF AS="y" 
THEN GOTO 190 ELSE IF AS="y" GOTO 190 ELSE IF AS="N" GOTO 
230 ELSE IF AS="n" GOTO 230 ELSE 
220 LOCATE 25,27,0:PRINT "you must enter (y/n) try 
again":GOTO 210 
ESDOODDL-DD-1:FOR I21 TO LLL:IF PS(2,1)»0 THEN II=I ELSE 
NEXT I 
240 EWT-NGW-(PEOPLE*250)-UL-FUEL:GAS-T2FUEL:IF AX-1 THEN 
GOTO 660 
250 CLS:LOCATE 2,33,0:PRINT "FINAL SUMMARY":LOCATE 
4,32,0: PRINT "* PERFORMANCE *":LOCATE 6,43,0: PRINT 
"SPECIFICATION DESIGN" 
260 PRINT "CREW:";TAB(46) PEOPLE;TAB(67) PEOPLE 
270 PRINT "INTERNAL LOAD (1bs):";TAB(46) UL;TAB(67) UL 
280 PRINT "SERVICE CEILING (ft):";TAB(46) SSC;TAB(67) SC 
290 PRINT "HOVER CEILING (ft):";TAB(46) SHC;TAB(67) MHA 
300 PRINT "VELOCITY (kts) CRUISE:";TAB(46) CRUISEV;TAB(67) 
CRUISEV 
310 PRINT TAB(16) "MAXIMUM:";TAB(46) MAXFVEL;TAB(67) 
MAXFVEL 
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320 PRINT TAB(16) "MAX ENDURANCE:";TAB(67) MEV 

330 PRINT TAB(16) "MAX RANGE:";TAB(67) MRV 

340 PRINT TAB(16) "BLADE STALL ON-SET:";TAB(67) O(II) 
350 PRINT "MAX RATE OF CLIMB (FT/MIN) :";TAB(46) 
SMRC;TAB(67) VVERT 

360 PRINT "ENGINE - NUMBER: ";TAB(67) ENGINE 

370 PRINT TAB(16) "TYPE:";TAB(67) TYPES 

380 PRINT TAB(16) "SHP (ssl) MILITARY:";TAB(67) SHP(1) 
390 IF AX-1 THEN LOCATE 21,34,0:PRINT "* GEOMETRY *":GOTO 
400 ELSE GOSUB 1010:CLS:LOCATE 2,34,0:PRINT "* GEOMETRY 
*":LOCATE 4,43,0:PRINT "SPECIFICATION DESIGN" 
400 PRINT "WEIGHT (lbs) MAX GROSS:";TAB(46) SGW;TAB(67) 
NGW3 

410 PRINT TAB(16) "EMPTY:";TAB(67) EWT 

420 PRINT "FUEL CAPACITY (1bs):";TAB(67) GAS 

430 PRINT "MAIN ROTOR - CHORD (ft):";TAB(67) C 

440 PRINT TAB(16) "RADIUS (ft):";TAB(46) SR;TAB(67) R 
450 PRINT TAB(16) "NUMBER OF BLADES:";TAB(67) B 

460 PRINT TAB(16) "DRAG COEFFICIENT:";TAB(67) CDO 

470 PRINT TAB(16) "ROTATIONAL VEL (rad/sec):";TAB(67) 
OMEGA 

480 PRINT TAB(16) "SOLIDITY:";TAB(67) SIGMA 

490 PRINT "TAIL ROTOR - CHORD (ft):";TAB(67) TRC 

500 PRINT TAB(16) "RADIUS (ft):";TAB(67) TR 

510 PRINT TAB(16) "NUMBER OF BLADES:";TAB(67) BT 

520 PRINT TAB(16) "DRAG COEFFICIENT:";TAB(67) CDO 

530 PRINT TAB(16) “ROTATIONAL VEL (rad/sec) :";TAB(67) 
OMEGAT 

540 PRINT TAB(16) "SOLIDITY:";TAB(67) SIGMAT 

550 PRINT TAB(16) "VERTICAL TAIL AREA (ft2):";TAB(67) S 
560 PRINT "FUSELAGE LENGTH (ft):";TAB(46) SFL;TAB(67) FL 
570 PRINT "EFPA (ft2) - FORWARD:";TAB(67) EFPA 

580 PRINT TAB(16) "VERTICAL:";TAB(67) VEFPA 

590 IF AX-1 THEN LCOPY:LPRINT CHR$ (12):GOTO 110 ELSE 
GOSUB 1010:GOTO 110 

600 

610 ' 

620 ' *** PRINT RESULTS *** 

630 ' 

640 ' 

650 AX-1:GOSUB 160 

660 CLS:LOCATE 10,25,0:PRINT "-W-PRINTER/":GOSUB 
1010:LOCATE 25,27,0:PRINT " " 


670 AX=0:LPRINT “":LPRINT “"“?3 LCPEPRINT TABI eee oe 
SUMMARY": LPRINT "":LPRINT TAB(32) "* PERFORMANCE x':LPRINT 
wu": LPRINT “":LPRINT TAB(43) “SPECI PIG Aire 

DESIGN" 


680 LPRINT "CREW:";TAB(46) PEOPLE;TAB(67) PEOPLE 

690 LPRINT "INTERNAL LOAD (1bs):";TAB(46) UL;TAB(67) UL 
700 LPRINT "SERVICE CEILING (ft):";TAB(46) SSC;TAB(67) SC 
710 LPRINT "HOVER CEILING (ft):";TAB(46) SHC;TAB(67) MHA 
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720 LPRINT "VELOCITY (kts) CRUISE:";TAB(46) 
CRUISEV;TAB(67) CRUISEV 

730 LPRINT TAB(16) "MAXIMUM:";TAB(46) MAXFVEL;TAB(67) 
MAXFVEL 

740 LPRINT TAB(16) "MAX ENDURANCE:";TAB(67) MEV 

750 LPRINT TAB(16) "MAX RANGE:";TAB(67) MRV 

760 LPRINT TAB(16) "BLADE STALL ON-SET:";TAB(67) O(ITI) 
770 LPRINT "MAX RATE OF CLIMB (FT/MIN) :";TAB(46) 
SMRC;TAB(67) VVERT 

780 LPRINT "ENGINE - NUMBER:"; TAB(67) ENGINE 

790 LPRINT TAB(16) "TYPE:";TAB(67) TYPES 

800 LPRINT TAB(16) "SHP (ssl) MILITARY:";TAB(67) SHP(1) 
810 ΤΡΕΙΝΤ "":LPRINT TAB(33) "* GEOMETRY *":LPRINT "" 
820 LPRINT "WEIGHT (lbs) MAX GROSS:";TAB(46) SGW;TAB(67) 
NGW3 : 

SSO LPRINT TAB(16) "EMPTY:";TAB(67) EWT 

840 LPRINT "FUEL CAPACITY (lbs):";TAB(67) GAS 

850 LPRINT "MAIN ROTOR - CHORD (ft):'";TAB(67) C 
BOOMLERINT TAB(16) 'RADIUS (ft): ''STAB(46) SR;TAB(67) R 
870 LPRINT TAB(16) "NUMBER OF BLADES:";TAB(67) B 

880 LPRINT TAB(16) "DRAG COEFFICIENT:";TAB(67) CDO 

890 LPRINT TAB(16) "SOLIDITY:";TAB(67) SIGMA 

900 LPRINT "TAIL ROTOR - CHORD (ft):";TAB(67) TRC 
910 LPRINT TAB(16) "RADIUS (ft):";TAB(67) TR 

feo LPRINT TAB(16) "NUMBER OF BLADES:";TAB(67) BT 

Pew GPRINT TAB(16) “DRAG COEFFICIENT: ";TAB(67) CDO 

940 LPRINT TAB(16) "ROTATIONAL VEL (rad/sec):";TAB(67) 
OMEGAT 

PPOSTIPRINT TAB(16) 'SOLIDITV:':TAB(67) SIGMAT 

960 LPRINT TAB(16) "VERTICAL TAIL AREA (ft2):";TAB(67) S 
970 LPRINT "FUSELAGE LENGTH (ft):";TAB(46) SFL;TAB(67) FL 
980 LPRINT "EFPA (ft2) -  FORWARD:';TAB(67) EFPA 

990 LPRINT TAB(16) "VERTICAL: ";TAB(67) VEFPA 

1000 LPRINT CHRS (12):RETURN 110 

1010 LOCATE 25,27,0:PRINT "press any key to continue" 
1020 AS=INKEYS: IF AS=""" THEN 1020 

1030 RETURN 
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L. “CHAPTER Sie 


10 '*****kk&kkkkkkkkkkkkk CHAPTER TEN ***k**k*k*kkkkkkkkkkkkkkkt*k 


*** COST ESTIMATION *** 


L 
' 
' 
σον. 
: *** CHAPTER TEN MAIN PROGRAM ***x* 
' 
' 
90 CLS:PRINT "-C-ALE/'";PRINTOUSELGHHDA 
100 COLOR 1,1,1:AZ=0:CLS:LOCATE 23,1,0:PRINT 
"-W-ClOMAIN/":INPUT;"",X 
110 COLOR 15,1,1:IF X=1 THEN GOSUB 150 ELSE ΙΕ: :Ι:., 
GOSUB 340 ELSE 
120 IF X=3 THEN CLS:LOCATE 23,1,0:PRINT "-W-LOAD/":CHAIN 
"HDL" FJALL 
jse 
140 ' 
150 CLS:LOCATE 10,20,1:INPUP ENTERSPEOPDSCIUBSD 
QUANTITYÜW,;Q:LOCATE 12,20,0:1NPUT "ENTEDWDI LALLon 
RATE“: TFR f 
160 LOCATE 22,32,1:INPUT "ANY CHANGES (Y/N)"';AS:IF AS="y" 
THEN GOTO 150 ELSE IF ASz"Y" GOTO 150 ELSE IF AS="Wn"'" GOTO 
420 ELSE IF AS="N" GOTO 420 ELSE 
170 LOCATE 23,27,1:PRINT "you must entera 1 EO» 


again": LOCATE 22,4595] e PENES "e GOTO 160 

180 

190 ' 

200 - *** PRINT COST ESTIMATION TABLE *** 

2109 

2209 

230 CLS:LOCATE 2,30,1:PRINT "COST ESTIMATIONOTABIESSESGOUNS 
4,42, LS PRINT "M COST": LOCATE 6; 1 I: PRINTER 


ROTOR:";TAB(55) C(1) 

240 PRINT "2. TAIL ROTOR:";TAB(55) C2A(1):PRINT " 
STRUCTURE: ";TAB(55) C2B(1):PRINT "3.  BODY:";TAB(55) C(3) 
250 PRINT "4. LANDING GEAR:";TAB(55) C(4):PRINT "5. 
NACELLE:";TAB(55) C(5) 

260 PRINT "6. PROPULSION ENGINE:";TAB(55) C6A(1):PRINT 
TAB(16) "DRIVE:";TAB(55) C6B(1):PRINT TAB(16) "FUEL 
TANKS:";TAB(55) C6C(1) 

270 PRINT "7. FLIGHT CONTROLS:";TAB(55) C(7):PRINT "8. 
AUXILLARY POWER:";TAB(55) C(8):PRINT "9. 

INSTRUMENTS :";TAB(55) C(9) 

280 PRINT "10. HYDRAULICS:";TAB(55) C(10):PRINT "11. 
ELECTRICAL: ";TAB(55) C(11):PRINT "12. AVIONICS:";TAB(55) 
C(12):PRINT "13. FURNISHINGS:" 

290 LOCATE 21,55,1:PRINT C(13):PRINT "14. AIR & 
ICE:";TAB(55) C(14):PRINT "15. LOAD & HANDLING:";TAB(55) 
σ(15) 
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ΞΟ Ε΄5 τΞι TO 15:CE(IT1)=C(I)+CE(TI):NEXT I:LOCATE 
24,30,0:PRINT "TOTAL COST =";CE(16) 

310 IF AZ-1 THEN LCOPY:LPRINT CHR$ (12):GOTO 100 ELSE 
GOSUB 350:GOTO 100 

ο | 

230 ' 

340 CLS:LOCATE 23,1,0:PRINT "-WzPRINTER/":GOSUB 
350:AZ=1:GOSUB 150 

350 LOCATE 25,27,0:PRINT "press any key to continue" 

260 ! 

370 ASSINKEYS:IF ASz'"" THEN 370 

380 RETURN 

590 ' 

400 ' 

410 ' 

420 ' *** COST ESTIMATION CALCULATION xxx 
mop ' 

440 ' 

450 C(1) = (-12938-101*W(1,3)*Q^-.074) *IFR 


kkk COST ESTIMATING xxx 


460 C2A(1) = (102*W2A(3)*Q^-.074)*IFR 
470 C2B(1) — (759*(W2B(3)^.848)*Q^-.286)*IFR:C(2)= 
C2A(1)+C2B(1) 


480 C(3) = (860*(W(3,3)%.848) *Q*—-. 286) *IFR 

490 IF GR-1 THEN C(4) = IFR*C(3)*W(4,3)/W(3,3) ELSE C(4) = 
IFR*85*W(4,3)*(Q^-.2176) 

500 C(5) = IFR*893*(W(5,3)^.848) * (Q^-.286) 

510 C6A(1) = IC(EN)*IFR*ENGINE*1000 

520 C6B(1) (19946 * (83*W6B(3)*(Q^-.074)) ) KIFR 

530 C6C(1) 9» IFR*201*W6C(3)*(Q^-8.959999E-02): 
C(6)=C6A(1)+C6B(1)+C6C(1) 


540 C(7) = IFR*156*W(7,3) *(Q*-8.959999E-02) 
550 C(8) = IFR*243*W(8,3)*(Q^-8.959999E-02) 
560 C(9) = IFR*125*W(9,3)*(Q%-8.959999E-02) 
570 C(10) 9» IFR*91*W(10,3)*(Q^-8.959999E-02) 
580 C(11) = IFR*143*W(11,3) *(Q*-8.959999E-02) 
590 C(12) = IFR*(6847+(125%*W(12,3) *(Q*-8.959999E-02))) 
600 C(13) = IFR*69*W(13,3)*(Q*-8.959999E-02) 
610 C(14) = IFR*213*W(14,3)*(Q*-8.959999E-02) 
620 C(15) = IFR*C(3)*W(15,3)/W(3,3) 

630 RETURN 220 

640 ' 

650 ' 
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